
**># 10*0 



mr 



p - 





NAVAL POSTGRADUATE SCHOOL 

Monterey, California 




THESIS 



An Interactive Microcomputer Wargame for an Air Battle 

by 

James Owen Wilson 
October 1982 



Thesis Advisor: 



A. F. Andrus 



Approved for public release: distribution unlimited 



Unclassified 



SCCUMITY CUASSiriCATlOH OF THIS FAOC Dmt» 



REPORT DOCUMENTATION PAGE 


READ INSTRUCTIONS 
BEFORE COMPLETIN’ Ci FORM 


1. ncFOAT HQummm 


a, OOVT ACCCIilOM HO, 


a. RICIFICmT-S CATALOG NUMaCA 


4. Tl ru C r«nF 5uAtiri«> 

An Interactive Microcomputer Wargame for an 
Air Battle 


5. TYPE OF REPORT A PERIOD COVERED 

Master's Thesis 
October 1982 


«. RfRFORMlWC ORO. REPORT NUMBER 


7. AUTHOfff«> 

James Owen Wilson 


i. contract or grant number^) 


*. rCNrONUIMO ONOANIZATION NAWC ANO AOONCU 

Naval Postgraduate School 
Monterey, California 93940 


10. program elemcm T. project Task 

AREA A WORK UNIT NUMBERS 


II. CONTNOLLIMQ or rice NAMC ANO AOOMKSt 

Naval Postgraduate School 
Monterey, California 93940 


12. ncaont oats 

October 1982 


11. NUMaCN OF AAOeS 

136 


U. mOniTOAim 6 ACtNCY NAmC * aOOFCIS<II irom C«Mfroillni OUlcm) 


IS. security class. (oI thf ripen) 

Unclassified 


Tip. OCCL ASSIFICATION/ OOWnGRAOInG 
SCHEDULE 


l«. OISTNIIUTION STATCMCNT Ci (Alt Xt»ari) 

Approved for public release: distribution unlimited. 


17. OlSTMieUTIDM STATCMCmT (oi tMm In Block 30, il dUlorool tfom Roport) 


IS. SUFFLCMCMT AMY NOTCS 


If. key WOffOt (Cootinum om fowo^cm clko il ncemocmtr cnk ikootifr Or block mmoor) 

Wargame 
Microcomputer 
Interactive Wargame 
APPLE III 


aO. ABSTRACT cContlnuo «f« rmifoeoo §IOo II noeocootr mk IkomtUr kf AI«cA mmkof) 

This thesis is an interactive wargame using an APPLE III microcomputer (128K 
configuration) programmed in UCSD PASCAL. It is designed as a naval task 
force undergoing an air attack and is modeled from the Air Battle Analyzer by 
M. C. Waddell of the Johns Hopkins University Applied Physics Laboratory. 



DO 1473 COITION or I NOV •( I* OOCOLCTC 

S/M OlOJ-014* «S01 I 



Unclassified 



1 



IfCUHlTY CUAMIFICATION OF T«»i ^AO« 0«#« Snt^emd) 



Approved for public release: distribution unlimited 



An Interactive Microcomputer Wargame for an Air Battl 

by 



James Owen Wilson 
Lieutenant, United States Navy 
B.A., University of Texas, 1974 



Submitted in partial fulfillment of the 
requirements for the degree of 

MASTER OF SCIENCE IN OPERATIONS RESEARCH 

from the 

NAVAL POSTGRADUATE SCHOOL 
October 1982 



If 

1 1 







ABSTRACT 



This thesis is an interactive wargame using an APPLE III 
microcomputer (128K configuration) programmed in UCSD PASCAL. 

It is designed as a naval task force undergoing an air attack 
and is modeled from the Air Battle Analyzer by M. C. Waddell of 
the Johns Hopkins University Applied Physics Laboratory. 
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I. INTRODUCTION AND BACKGROUND 



A. AN INTERACTIVE COMPUTER ASSISTED WARGAME 

A wargame can be considered to be "any type of analysis or modeling 
that contains an explicit representation of two or more sides in defining 
an adversary or conflict situation." [Pef. ij Military science has long 
been interested in games/gaming for their use in establishing tactical 
and strategic doctrine and the development of new and improved weapon 
systems. Low |jRef. l] has proposed that "a morphological matrix can be 
constructed in three dimensions to review the field of military games in 
all its forms." Figure (1.1) is this classification matrix. The dimen- 
sions of the matrix are technique, scope, and application. From this 
matrix it is obvious that there are many possible combinations of tech- 
nique, scope and application in the development of different wargames. 
"Clearly, any research to be performed in gaming must be selective and 
focused on particular elements of this matrix if the effort is not to 
become untenable in its proportions." ^Ref. l] 

The air battle computer program of this thesis is an interactive 
wargame using an APPLE III microcomputer programmed in UCSD PASCAL. 

It is designed as a many on many engagement, to provide a tool for 
operations planning and evaluation, as an interactive computer wargame 
and would be located as such in Figure (1.1). This wargame also has 
training and educational applications and therefore could be easily 
integrated into a wargaming or simulation course as a teaching aid due 
to its flexibility, ease of operation and portability. 
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Figure 1.1 Gaming Classification Matrix 



The selection of the Air Battle Analyzer as a model for this thesis 
was made because it provided a convenient format to initiate an inter- 
active wargame on a microcomputer. It is designed to be general in 
approach and provide much flexibility in the play of the game. It also 
provided a very convenient and mathematical approach that was easily 
translated into a computer program. 

B. WHY A MICROCOMPUTER? 

In the last few decades, computers and the problems to which they 
have been applied have been a primary concern of both civilian and 
military communities. Computers have evolved from the UNIVACl , vintage 
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1950 vacuum tube, through the transistors of the late fifties to the 
silicon chips and integrated circuits of today. New applications for 
computers are appearing everyday. Therefore, it is not surprising that 
the military establishment has diligently researched the applicability 
of the computer to its multitude of problems, e.g., guidance mechanisms 
for weapons, inventory maintenance of logistic support equipment, and 
computer wargames. 

This evolution of the computer is phenomenal. The computers of today 
are faster, more efficient, have a larger memory capacity and, all this 
notwithstanding, are cheaper to build and operate. "With every major 
advance in solid state electronics technology, you get two new products; 
a smaller version of yesterday's computer and a more powerful version of 
today's computer." [Ref. 2] Microcomputers today are relatively cheap 
and are becoming a very common appliance. They can be found on board the 
ships and aircraft of today's Navy. They are relatively unimposing 
machines and most are very simple to operate. With the advent of these 
machines on board our ships, it has become imperative that they be used 
constructively. 

'Wargaming in the past has been conducted manually or at great expense 
on large computer facilities. Microcomputers offer a very pleasing 
alternative to the plotting and frustrating tasks of manual wargaming and 
provide a very economical alternative to the large computers. The NAVAL 
TACTICAL GAME, NAVTA6, TRAINING SYSTEM is an example of a valuable aid to 
teaching tactical doctrine through the use of an interactive microcomputer 
wargame. The NAVTAG system, however, consists of three microcomputers, 
three video display terminals, three mass storage devices and a printer. 
This system is designed specifically for NAVTAG. 
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C. PURPOSE 

The purpose of this thesis is twofold. First, to create 
microcomputer version of the Air Battle Analyzer and second, 
the capability of a standard APPLE III microcomputer. 



a prototype 
to explore 
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II. AIR BATTLE ANALYZER 



A. PURPOSE 

The Air Battle Analyzer is published by The Johns Hopkins University 
Applied Physics Laboratory. It was developed in 1963 as a "means for 
considering in an orderly and economical fashion, how a hypothetical air 
battle may progress." It is to be used "in ascertaining the effects of 
both deployment and tactical employment of various weapon systems and 
other equipment on many different battle situations." [Ref. Sj 

B. DESCRIPTION, TOOLS 

The Air Battle Analyzer is used as a tool to bring into perspective 
the interactions of forces in an air battle. It is designed to provide 
a chronological display of movements and operations of the different 
units involved. The primary tool toward this goal is the plotting and 
display chart. Figure (2.1). This figure has several of the lines and 
units plotted, reflecting what the chart looks like after a battle 
scenario has been enacted. The chart is sectioned into three areas, a 
range-altitude plot, a range-azimuth plot, and a range-time plot. The 
link between the areas is the range scale, which runs along the 
horizontal axis. This common link is designed to facilitate reference 
from one plot to another. 
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Figure 2.1 Plotting Chart (Reduced) 

Included with the chart are several nomographs and plastic plotting 
tools that are essential for several of the numerical calculations 
involved, and that facilitate the actual plotting of lines on the dif- 
ferent areas of the chart. Figures (2.2) and (2.3) are examples of the 
associated tools for use with the Air Battle Analyzer. Figure (2.2) is 
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a Mach Meter, used "for drawing aircraft range-time lines having slopes 
appropriate to the aircraft speed." Figure (2.3) is a nomograph for 
determining radar detection ranges in a clear environment. 




Figure 2.2 Mach Meter Template (Reduced) 
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C. LAYOUT, GAMEFLOW 

To begin the analysis, all the units involved and the radar horizons 
of the fleet units are plotted on the range-azimuth area of the chart. 

On the range-time area are plotted the early parts of the attack profile, 
combat air patrol and early warning aircraft. Also needed is data con- 
cerning the performance characteristics of the units and the weapons of 
both the fleet and attack. Additionally, battle plans for both the fleet 
and attack are needed in order to stage the actual attack and subsequent 
defense. These battle plans and performance characteristics are left 
entirely to the user, but should appropriately reflect what the user de- 
sires to analyze. "The battle plans may be thought to consist of the 
orders of battle and of standard doctrine and such information as might 
be given in a pre-attack briefing." [Ref. sj 

The game progresses as the interactions between the different units 
begin to unfold and information is "received" concerning the attack. 

These interactions are indicated by the attack profiles on the range- 
altitude chart intersecting with the radars of the fleet units. These 
interactions enable the user to make decisions concerning the use and 
deployment of his forces, provided the appropriate employment of the 
battle plans. 

The examination of the battle is completed when the user decides 
the fleet has become fully aware of the nature of the attack and has 
brought to bear any and all of the units he believes should be used in 
its defense. At this point, the analysis and "second guessing" can be 
done to try and determine how the battle might have progressed had 
different decisions been made at certain points in the progression of 
events . 
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III. USERS GUIDE 



A. STARTUP, BUILDING THE DATABASE 

The Air Battle Computer model is designed to operate on an APPLE 
III microcomputer with one additional disk drive and a video monitor. 

The needed software is stored on two 5 inch floppy disks, labeled 
ABA.l and ABA. 2. The game will start automatically following these 
simple instructions: 

i) Place disk labeled ABA.l, label up, in disk drive 1 (built in 
drive) . 

ii) Place disk labeled ABA. 2, label up, in disk drive 2 (external 
drive) . 

iii) Turn video monitor on. 

iv) Turn APPLE III computer on. 

The disk drives will whir audibly, and shortly thereafter the APPLE III 
PASCAL copywrite notice will appear briefly on the monitor, followed by 
two screens of very general information about certain aspects of program 

operation. It is important to note the orientation of the screen, and 

that the figures on displays are disproportionately large relative to 
the distance between units. 

The third screen presented will be the first selection menu. Figure 
(3.1). After the selection from the first menu the disk drives will 
whir briefly as program control is chained to the programs on the 
second disk. What follows will depend on the menu choice of the user. 

If option 1 was selected, a screen titled FLEET COMPOSITION will appear. 
This screen is followed by six others that present a general overview 
and specific parameters for the ships of the default database. 
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If you have played this game before, then you may be 

familiar with the default input database and/or you 

may have previously remodeled it to suit your needs. 

Please select one of the following options: 

1 : BUILD DATABASE; WITH REVIEW of default database. 

2 : BUILD DATABASE; WITHOUT REVIEW of default database. 

3 : Use the DEFAULT DATABASE parameters with NO REVIEW. 

4 : Use the DATABASE parameters retained FROM LAST GAME. 

Type a number from 1 to 4 : 

Figure 3.1 Menu from Intro 

Following the review of the fleet, the review of the aircraft will 
begin with a screen titled AIRCRAFT. The first screen describes how 
friendly aircraft are deployed, followed by two screens of specific 
parameters for deployed fighters and three screens of specifics on 
deployed early warning aircraft. These six screens are followed by 
one screen of specific parameters for each of the eighteen attack 
aircraft. Once the user becomes familiar with the format, these 
screens can be advanced quickly. If the user desires to change some 
of the parameters, these same values will be presented again during 
the process of changing the default database. 

The selection menu of Figure (3.2) follows this review of the 
default database. For the novice user it is recommended that selection 
1 be chosen, primarily because it does not require further manipulation 
with the database prior to seeing it, using it and becoming familiar 
with it during the game portion of the program. Thus, this selection 
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bypasses a possible detrimental aspect of the game for the novice user, 
namely, lengthy, boring and repetitious review of parameters. After the 
user has become familiar with the default database through use of the 
game he is better able to decide what aspects of it he may wish to change 
or enhance. After this selection there is a short period of <^isk 
activity while the default database files, located on disk number one are 
being transferred to the game database files on disk number two and the 
control is transferred to the game program. 

How do you wish to set up the players? 

1 : Use the default fleet/ship and aircraft database. 

2 : Use the default fleet and build your own aircraft. 

3 : Use the default aircraft and build your own fleet. 

4 : Build your own fleet and aircraft database. 

Type a number from 1 to 4 : 



Figure 3.2 Menu from Startem 

If the user decides to build a new database, he is given the 
opportunity to add units, delete units, or change unit parameters. 

This is done on a question and answer type basis with the program 
initiating the questions. The user is first given the opportunity 
to alter the ships' database provided the default fleet is not used. 

For each ship, he is asked if he wishes to delete it from the database. 
If he answers negatively, he is asked if he wishes to change any of its 

parameters. If he answers no, he is asked the same questions for the 
next ship, etc. If he answers positively to the deletion, he is 
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iiTwned lately asked the same question for the next ship. If he answers 
yes to changing a ship's parameters, he is shown each parameter for 
that ship and asked if he wishes to change it. A positive response 
then causes the program to ask him to enter the new value, a negative 
response causes the program to retain the old value. In either case, 
the program progresses to the next parameter value and the process is 
repeated. After all the ships in the default database have been pre- 
sented, the user is asked if he wishes to add any ships to the data- 
base. If ships are added, he is asked to enter the appropriate 
parameter values. 

When the fleet game database has been built, the user is given the 
same opportunity to add, delete, or change parameter values of the 
attacking aircraft. The screen and questioning format for changing the 
attack aircraft is the same as that for the fleet units. 

B. PLAYING THE GAME 

The first graphic display. Figure (3.3) is the next screen presented 
to the user. This display simply introduces the shapes that will be 
seen on the displays of the fleet and attack. The figure for the fighter 
aircraft is used on both the fleet display and the attack display; however, 
the attack display is separate and the user has the option of viewing it. 

Next the user is asked if he desires the computer to step through the 
game at a specified time step. It is recommended that this be answered 
NO. The program then begins to check for any radar contacts. This re- 
quires scanning the linked lists several times, which for the first few 
time steps causes a rather lengthy pause in visual activity. 
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Presented below are the figures that 
will be used in the graphic displays 

The actual position of the unit shown 
will be the upper left point of figure. 

SHIPS AIRCRAFT 

FIGHTER AEW 

ak '{H 

RADAR CONTACTS 



AEW 


FIRE CNTRL 


AIR INTCPT 


SHIP SRCH 


n 


X 


-1- 


o 



Figure 3.3 Figures Used in Graphics 

During this pause the program provides a visual indication^ that it 
is still operating. The first display of the fleet is then presented 
with the center of the screen cluttered with several units drawn on 
top of each other. Along the top of the screen appears: 

U(pscale / D(ownscale / R(ecenter 
Along the bottom of the screen are a variable length line which por- 
trays 10 nautical miles on the screen scale, and below that: 

C(ontinue Time : xxx 

The time is the current game time, in minutes. By pressing "D" or "U", 
the user can downscale or upscale the display. A few downscales at 
this point will begin to display the units on a less cluttered scale. 
The user can recenter the display on any unit by typing "R" and the 

Hhe symbol "=>" is printed diagonally across the screen from the 
upper left corner of the screen. 
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number of the unit. A unit may not appear on the screen due to the 
scale and the X-Y values of the screen center. The user enters "C" 
when he is familiar with this view of the force layout and is ready 

to continue the program. The user is then asked if he wishes to see 

the attack; if so, it is displayed in the same fashion as the fleet. 

Figures (3.4) and (3.5) are examples of the screen display of the 

fleet. Figure (3.4) exhibits the initial display, downscaled a few 
times, and Figure (3.5) exhibits a later display with several radar 
contacts and other game consequences. 



U(pscale / D(qwnscale / R(ecenter 




Figure 3.4 Initial Fleet Display 
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U(pscale / 




: — : ==> 10 NM 

C(ontinue Time : 90 

Figure 3.5 Later Fleet Display 

The next presentation is the menu for selecting status reports. 
Figure (3.6). These reports are amplifying information about the 
fleet display. For example, the fighter/interceptor report contains 
the unit number corresponding to the number on the graphic display, 
and the aircraft's coordinate position, position relative to the 
carrier, heading/course, velocity, the remaining minutes of endurance 
and the number of missiles remaining. The early warning aircraft 
report has exactly the same layout and information as the fighter/ 
interceptor with the exception AEW aircraft do not carry missiles. The 
ship report indicates the unit number, ship type, coordinate position. 
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Please select an option according to which status 
of forces report you wish to peruse. 

1 ; Ships. 

2 : Fighter / interceptor. 

3 : Early warning aircraft. 

4 : Radar contacts. 

Q : Quit. 

NOTE :: COORDINATE POSITIONS are SCALED : 1 = 10 NM. 

After your selection you will be presented with 
specifics and status information concerning your 
selection. You will then be returned to this 
menu where you may make another selection or 
repeat a previous selection. 



Figure 3.6 Status Reports Menu 



course and speed, the number of long and short range missiles still 
onboard, and the number of missile hits and bomb hits. The radar re- 
port contains the contact number, coordinate position, the contacting 
radar type, contacting unit's number, and if the contact has been 
killed on this step. 

After studying these reports, the user is presented the oppor- 
tunity to redeploy or move the friendly units. The next menu. Figure 
(3.7), allows the user to specify how the friendly units are to move 
during the next time step. The selections allov^ the user to launch an 
aircraft by selecting aircraft type, and entering the desired heading, 
velocity and altitude. The user can initiate the recovery of an air- 
craft. For example, if a fighter was out of missiles, or was getting 
"low" in endurance, by selecting 'recover a fighter' the airborne 
fighters' unit numbers and positions relative to the carrier are 



23 



Please choose your desired course of action : 

1 : Move a fighter/ interceptor. 

2 : Launch a fighter/interceptor. 

3 : Recover a fighter/interceptor. 

4 : Move an AEW aircraft. 

5 : Launch an AEW aircraft. 

6 : Recover an AEW aircraft. 

7 : Move/manuever an individual ship. 

8 : Alter the PIM / SOA of the fleet. 

D : Review the display of forces. 

R : Review the status of forces. 

Q : Quit. 

After your selection, you will be asked for specifics 
about your selection, then you will be returned to 
this menu where you may make another selection, repeat 
a selection for another aircraft/ship or stop. 



Figure 3.7 Nextevents Menu 



presented individually . For each aircraft, the user is asked if he 
wishes it recovered. He simply answers yes for the aircraft he wishes 
to recover; if he answers no to each fighter, then the program returns 
to the selection menu. When a recovery is initiated, the program 
directs the aircraft towards the carrier. When the "recovered" air- 
craft gets within five nautical miles of the carrier, an "instant 
landing" is performed. The user can alter the heading, velocity or 
altitude of an airborne aircraft or he can change the course and speed 
of the fleet or of an individual ship of the fleet. He can also review 
the force displays or status reports from this menu. 

After making all desired changes, the user is shown the current 
game time, the default game end time, and is asked if he wishes to stop 
the program. If the program is not stopped, he is asked to enter the 
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next time step length. Time steps do not have to be equal in length or 
any specified minimum or maximum length. However, if a step of greater 
than 60 minutes is entered, the program asks the user to verify the 
entry. The time step must be entered in minutes. After this entry, 
the entire game process is then repeated and the user will see the 
same visual indications of program activity while the program checks 
for radar contacts. This is followed by the next display of the fleet. 

If any movements were ordered from the event menu, the units will be 
displayed at appropriate relative positions, and any radar contacts, if 
made, will also be displayed. 

The program operates on a time step structure. This is important 
to note because all calculations are performed at the end of each time 
step. The time step increment is supplied by the user. No calculations 
are made for interactions that would have occurred between time steps. 
Therefore, when interactions between the forces have begun, it is 
recommended that time steps of no more than 5 minutes be used. Using 
the default database, the first radar contacts are made after approximately 
30 game minutes and interactions will begin after approximately 45 game 
minutes. 
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IV. AIR BATTLE COMPUTER MODEL 



"Programs that use procedures well are generally 
far easier to read, easier to understand, easier 
to change, and easier to get working." pRef. 4, 
p. 90] 

A. INTRODUCTION 

This chapter and the next explain the program execution. This 
chapter is written in four sections. The first will list and explain 
the assumptions and give a brief overview of the program. The next 
states a few arguments for the programming language choice. This is 
followed by a description of the disks and the files residing on them. 
The last section explains the organization and creation of the database, 
including how the default database is formed and altered. 

B. GENERAL PROGRAM OPERATION 

1 . Assumptions of the Program 

This program was designed to be as similar to the Air Battle 
Analyzer as possible; however, there were several simplifying assump- 
tions that were required. Some of these assumptions were necessitated 
by memory space limitations in the actual game portion of the program, 
as written for the APPLE III. The assumptions are; 

i) default database used, 

ii) one-sided play, 

iii) radar detections and missile firings, 

iv) cartesian coordinate system. 
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v) instantaneous manuevers, 

VI ) time step processing. 

The following paragraphs briefly describe each assumption. 

A default database has been supplied with the program. This 

was done to allow the novice player to use the program immediately, 

without a lot of foreplanning concerning characteristics and battle 

plans. The more experienced player can easily change this database. 

By altering the database, the player can see the differences these 

changes make in the outcome of the game. 

The attack battle plan is written into the program, i.e., 

2 

the attack performs only preplanned manuevers. This was done in 
order to hasten the play of the game as well as to keep it simple 
for the user. This allows the user to concentrate on the fleet's 
battle plan without the distraction of assuring the attack follows 
his plan. Also, this frees the user to experiment with many battle 
plans against a common attack profile. 

The default attack force consists of eighteen aircraft located 
approximately 500 NM East of the fleet. The force is formed in six 
wings of three aircraft. All of the attack aircraft begin the game on 
a heading of 270. The first three aircraft begin at 20,000 feet alti- 
tude and the rest are at 10,000 feet. The first three and the last 
six aircraft begin the game at 350 knots and the remaining aircraft 



2 

These manuevers are preplanned in the sense that they occur 
after certain time periods. The attack "flight" profiles may change 
from game to game because of different attack databases or different 
time step lengths used throughout the game. 
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start at 400 knots. As the game time exceeds multiples of 20 minutes, 
each aircraft's heading is altered towards the carrier. When the first 
aircraft gets within 200 NM of the carrier the altitude of each air- 
craft is changed to 200 feet. When the game time exceeds 120 minutes 
the remaining aircraft begin their retreat at 10,000 feet, heading 090 
at 450 knots. 

The attack profile portion of the program is contained in the 
ATKUPDATE procedure which resides on the Thesis3b file. This profile is 
programmed in a way that should be easy to change. Most of the parameters 
that are necessary to create the profile are written as constants in the 
declarations section of the game program, residing on file ThesisS. 

Further detail on this procedure can be found in Chapter 5, with 
possibilities of expansion discussed in Chapter 6. 

Radar detection of an attack aircraft occurs when it comes within 
a certain finite range of the friendly unit. That range is the lesser of 
the maximum radar range or the radar horizon, a function of the aircraft(s) 
altitude. In order for a unit, attack or friendly, to fire a missile or 
drop a bomb, the unit must have an available missile (bomb) and the 
target must be within minimum and maximum missile range. For air inter- 
cept radars, air-to-air missiles, and ai r-to-surface missiles, the target 
must also be within the detection/firing envelope. 

The playing area is an X-Y cartesian coordinate type layout, with 
positioning of aircraft and ships referenced to their X-Y positions and 
altitudes. The X-Y axes are measured in nautical miles and altitudes are 
measured in feet. Altitude changes, and turns are done instantaneously 
rather than gradually over some time and distance. 
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The game portion of the program uses a time step structure 
vice a next event structure. This method was chosen because it allows 
the operator to increment the battle scenario at a pace of his own 
choice. Also, this structure provided a more convenient approach to 
the interactive aspect of the program. A combination time step, next 
event structure would provide a more realistic methodology; however, 
this project's completion date necessitated the strict time step 
approach. The major drawback to this approach is that all interac- 
tions between the fleet and the attack are done at each time increment. 
This necessarily implies that a lengthy time step, once interactions 
between the opposing forces have begun, might cause a missed interaction, 
when in fact one certainly would have occurred. 

2. Program Operation, Primary Chain 

The Air Battle computer program is composed of four distinct 
operational units that are chained together such that program flow 
passes from one logical stage of operation to another. The four units 
are depicted in Figure (4.1) in a simple flow diagram. These units 
are actually four distinct, separately compiled, program codefiles. 

The APPLE library unit CHAINSTUFF was used as a mechanism for the 
chaining of the programs. The chaining is accomplished by declaring, 
at the start of the current program, the filename of the program codefile 
that is to be executed when the current program concludes. 

CHAINSTUFF also provides a construct that allows a string 
variable to be passed between the programs, thus permitting a very 
convenient structure to allow information obtained in one program to 
be referenced in the next. 
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Figure 4.1 Program Chain 

This mechanism is of primary importance in the sequence 
control of an interactive computer program, i.e., how the user 
directs the sequence of program operations. The "dialogue" or 
sequence of exchanges between the user and the program is the user's 
tool for this control. Ramsey and Atwood |^Ref. 5] identify eight 
general dialogue types, of which this program uses two that require 
little or no training: 

i) question and answer, 

ii) menu selection. 

These two choices, specifically the first, affect other as- 
pects of an interactive computer program, namely the data entry. 

Further detail on this area of the program will be discussed in the 
section on building the database. 
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3. Individual Programs, Briefly 

Intro {file ThesisO), the "turnkey" program, is a short 
initialization program that presents the user introductory informa- 
tion pertaining to the operation of the program. It also provides 
a notification of certain aspects of the program execution. It con- 
tains the initial option selection menu as well. From this selection, 
control passes to one of the other three programs. 

Startem (file Thesisl) is executed unless the fourth option 
(use last game's database) is selected from Intro. This program 
presents the parameters established in the default database. After 
the review, the next selection menu is presented to allow the user to 
select which of the main areas of the default database he may wish to 
change or retain. The option selected from this menu determines what 
is done in Changem (file ThesisZ), the program that builds the game 
database. 

Changem is the program in which the user is presented the 
opportunity to add or delete units, or change parameters of the units 
in the fleet or attack. The user first is asked if he wishes to re- 
tain a unit; if he chooses to do so, he then is asked if he wishes 
to change any of its parameters. If he answers positively to this, 
he is presented with each of the parameters individually and asked 
if he wishes to change it; if so, he is asked to enter the new value. 

Abagame (file ThesisS) is the actual game program. This pro- 
gram reads the game database built in Changem and forms linked lists 
of the records, separating the aircraft records into an "attack" list 
and an "air" list. It forms and displays the graphic figures, then 
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goes into a loop for the manipulations of the game for each time 
step. 

C. THE LANGUAGE, PASCAL 

"The idea of separating a program into general procedural 
units that operate on data, and then establishing communi- 
cation between the units by passing data structures back 
and forth is the essence of good computer programming. A 
language like PASCAL gives you a good opportunity to de- 
velop this strategm since PASCAL provides both procedural 
subunits and a ]arge assortment of data structuring techniques." 
[Ref. 4, p. 274J 

PASCAL was chosen as the programming language for several reasons. 
First, the languages the APPLE III computer supports limited the choice 
to either BASIC or PASCAL. Second, the expected length of the program 
necessitated a choice that would provide a document that could be 
easily read and easily changed. Third, the general nature of PASCAL 
provides a natural top-down structuring of a program. 

Primarily PASCAL is much easier to read and understand than BASIC. 
This is important if a program may be changed at a future time, by 
either the original or some other author. PASCAL is much better 
suited to lengthy programs than BASIC due to the procedural subunits 
available and the ease in which a program is broken down into those 
units. PASCAL naturally eases the programmer into top-down development 
techniques. 

There are several aspects of APPLE III PASCAL that lend themselves 
to the memory space problems, some positively, some negatively. One 
option of the APPLE III PASCAL system seemed to have very promising 
attributes to the memory space problem. The reference manuals indicate 
the system allows the program to control what library units will be 
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"loaded" into the computer memory by the compiler options "NOLOAD" and 
"RESIDENT". Without these options, all library units "used" by the 
program are loaded into memory at the start of execution, thus reducing 
memory available for the program. However, with these options, the 
program is supposed to be able to control when a unit is "loaded" into 
memory, thus a unit can be "resident" only when it is needed and not 
resident otherwise. The author was able to get this option working 
for all but the graphics unit, PGRAPH. Therefore, unfortunately, it 
was not included in the program. 

Another APPLE III PASCAL characteristic that is similar to the 
"noload" option is, program segmentation. A program can use 15 seg- 
mented procedures, which are loaded into memory only when they are 
active. This aspect was used in the Abagame program, and indeed was 
essential . 

Still another area of UCSD PASCAL that suggested flexibility with 
memory space allocation was the use and reuse of memory for dynamic 
linked lists. However, the method the APPLE III uses is not as 
flexible and therefore was not as useful as was hoped. The computer 
does not "dispose" of deleted records on an individual basis but 
rather they are "disposed" in a block of consecutively linked records. 
This aspect was indeed useful, but it was not as flexible as one that 
would allow the reuse of memory space occupied by a single dynamic 
variable after "disposal". 

D. FILE DESCRIPTIONS, DISK ORGANIZATION, EXECUTION TIME 

1 . Boot Disk, ABA.l 

Included on the Boot Disk are all the files needed to boot the 
APPLE Ill's Sophisticated Operating System (SOS) files, sos. kernel. 
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sos.interp, and sos. driver as well as the PASCAL files system. pascal 
and system, miscinfo. These five files are needed to boot the PASCAL 
system. The only drivers supported in the sos. driver file are the 
CONSOLE and GRAPHICS drivers. Memory space limitations in the game 
portion of the program were the reason no other drivers were supported 
in the sos. driver files. These five files occupy 165 blocks on the 
disk. Additionally, the system. library codefile, the system. startup 
codefile and the default database reside on the Boot disk. 

The system. library occupies 70 blocks and contains the APPLE 
library units, APPLESTUFF, CHAINSTUFF, LONGINTIO, PASCALIO, REALMODES, 
TRANSCEND, and PGRAPH. The system. 1 ibrary also contains the unit 
THESISTUFF, in which reside several procedures designed specifically 
for use in each of the Air Battle Analyzer programs. The type declara- 
tions needed in each of the programs are also in the Thesi stuff unit. 
READINT and a slightly modified version of it, READREAL, were obtained 
in an article written by Edward Heyman [Ref. 6]. The system. startup 

3 

codefile is the name given to the codefile of the Thesi sO text file. 
This is the short introductory program with the first option selection 
menu. This file occupies 8 blocks on the disk. The last two files on 
the boot disk are the files containing the default database, together 
they occupy 5 blocks. 

2. Second Disk, ABA. 2 

The files residing on the second disk are the last three of the 
program codefiles, Thesisl, Thesis2, ThesisS, and the Thesis3.1 ib(rary) 



3 

This is a naming convention on the APPLE III for a "turnkey" program, 
a program that executes immediately after the system is booted up. 
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occupying 17, 25, 43, and 11 blocks respecti vely. As explained 
earlier, Thesisl is the codefile for the STARTEM program, Thesis2 
is the codefile for CHANGEM and ThesisS the codefile for ABAGAME. 

Also residing on this disk are the game database files created in 
the CHANGEM program, and the "outfile" database files that are 
created in ABAGAME, These four database files will have varying 
lengths, depending on the changes instituted in CHANGEM and the 
actual play of the game. 

There are three units, MAKEFORMS, GRAFSTUFF, and BEARINGS 
on the ThesisS, library file. MAKEFORMS forms the packed arrays that 
represent the forms shown in the graphic displays. GRAFSTUFF has 
the UPSCALE, DOWNSCALE, and RECENTER procedures used in the graphic 
displays. BEARINGS has the procedures that get distances between two 
coordinate positions, DISTANCE; bearing from one position to another, 
DEGREES; and a new coordinate position after a time step has occurred, 
GETNEWXY. 

3. Playing Time 

This program can be executed in two stages; 

i) review and build a database, 

ii) and play the game. 

To do a thorough job of each entails about 30 to 45 minutes per stage. 
When a user builds a database, it is retained on the second disk as 
game database files. These files are not altered by the game program. 
Therefore, this game database can be used as often as desired. For 
each separate game, the player can simply alter his deployment of 
forces and/or change time step lengths to view a new battle unfold. 
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With each execution, of course, the user becomes more familiar with 
the required key strokes necessary to accomplish his goals and thus 
the playing time decreases. Likewise, after building a few databases 
for the game, the user again becomes familiar with the key strokes 
required and thus can accomplish the first portion in less time. 

E. ORGANIZATION AND CREATION OF THE DATABASE 
1 . Filemaker and the Default Database 

Figures (4.2) and (4.3) illustrate the record types used in 
the program; Figure (4.2) is the ship record and Figure (4.3) is the 
aircraft record. These figures illustrate the variables contained in 
each record, the range of each variable, and the meaning of ambiguous 
variable names. Note that the aircraft record is a multiple nested 
variant record. An aircraft can be an "enemy" or "frend" and if it 
is a "frend" , it can be either "intcpt" (interceptor/fighter) or "aew" 
(early warning aircraft). 

Filemaker is the program that creates the default database by 
initializing the variables in each record. This program defines the 
number and types of units involved and then assigns parameter values 
to each unit. If a new default database is desired, the program 
Filemaker can be used to form it. The user would need to edit the 
text version of Filemaker and change whatever aspect of the file is 
desired. After saving this textfile, he would need to recompile the 
new Filemaker text and then execute the compiled code to create the 

new default database files. The filenames of the default database are 
SHIPINFILE and AIRINFILE. The parameter values assigned to the units 
in the default database exhibit a close resemblance to the parametric 
values suggested in the manual game's example. 



36 







i 



ship = record 

link : shipntr; 
class : shiptype; 
num : 0..255; 
xpos : real ; 
ypos : real ; 
pim : 0..359; 
soa : 0..50; 
fcrng : 0..255; 
ssrng : 0..255; 
Irsam : 0..255; 
srsam : 0..255; 
Irmpk : real ; 
srmpk : real ; 
srmin : 0..255; 
srmax : 0..255; 
Irmin : 0. .255; 
Irmax : 0..255; 
mbits : 0..255; 
bhits : 0..255; 
sunk : boolean; 
end; 

Variable Meanings: 



link : A pointer variable used in the linked lists. 

class : A program defined type (cv, dest, crsr). 

num : The unit number, assigned in Abagame. 

xpos : The X coordinate position of the unit. 

ypos : The Y coordinate position of the unit. 

pim : Course/Heading of the unit. 

soa : Speed of the unit. 

fcrng : Fire control radar maximum range. 

ssrng : Ship search radar maximum range. 

Irsam : Number of long range SAM's, 
srsam : Number of short range SAM's. 

Irmpk : Long range missiles' probability of kill, 
srpmk : Short range missiles' probability of kill, 
srmin : Short range missile minimum target distance, 
srmax : Short range missile maximum target distance. 
Irmin : Long range missile minimum target distance. 
Irmax : Long range missile maximum target distance, 
mbits : Number of missile hits endured, 
bhits : Number of bomb hits endured, 
sunk : True if (mbits + bhits) GT a program constant. 



Figure 4.2 Ship Record 
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aircraft = record 

link : airpntr; 

num : 0..255; 

xpos : real ; 

ypos : real ; 

alt : 0.. 30000; 

azmth : 0..360; 

velcty : 0..2000; 

iff ifftype; 

case ifftype of 



enemy : 



( 


asm 


: 0..31; 




asmrng 


: 0..255; 




asmenv 


: 0..359; 




asmpk 


: real ; 




bomb 


: 0..31; 


frend 


, bombpk 


: real ); 


( 


acfrnd 


: frndtype; 


case 


frndtype of 




intcpt 






( 


intndr : 0..255; 
airng : 0..255; 
aienv : 0..359; 
aam : 0. .31 ; 

aamrng : 0..255; 
aamenv : 0..359; 
aampk : real ) ; 




aew 


: 




( 


aewndr : 0..255 ; 
aewrng : 0..255 )); 


end; 




record 



Variable Meanings: 



link 

num 

xpos 

ypos 

alt 

azmth 

velcty 

iff 

asm 

asmrng 

asmenv 

asmpk 

bomb 

bombpk 

acfrnd 

intndr 

airng 

aienv 

aam 

aamrng 

aamenv 

aampk 

aawndr 

aewrng 



A pointer variable used in the linked lists. 
The unit number, assigned in Abagame. 

The X coordinate position of the unit. 

The Y coordinate position of the unit. 
Altitude of theunit. 

Course/Heading of the unit. 

Ground speed of the unit. 

A program defined type (enemy, frend). 

Number of Air-to-Surface missiles. 
Air-to-Surface missile range. 

Air-to-Surface missile firing envelope. 
Air-to-Surface missile probability of kill. 
Number of bombs 
Bombs' probability of kill. 

A program defined type (intcpt, aew). 
Interceptors' airborne endurance. 

Air intercept radar maximum range. 

Air intercept radar detection envelope. 
Number of Air-to-Air missiles. 

Air-to-Air missile range. 

Air-to-Air missile firing envelope. 
Air-to-Air missile probability of kill. 

Early warning aircraft airborne endurance. 
Early warning radar maximum range. 



Figure 4.3 Aircraft Record 
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2. Organization and Format 



As mentioned earlier, Startem is the program in which the 
default database is presented, and Changem is the program in which 
the default database is used to form the game database. Figure (4.4) 
is a partial flow chart for Startem, where the entry flow path is de- 
termined by the selection from the first menu. The next selection 
menu provides a more detailed selection of how the game database is 
to be formed. This is done in the GAMECHOICES procedure. Figure (4.5) 
is a general flow chart for Changem, where the entry flow path is de- 
termined by the selection from the second menu. Notice it is not 
always necessary to pass through all the programs. From Intro it is 
possible to bypass most of Startem or to bypass Startem and Changem. 

Further, it is possible to bypass Changem from Startem. Actually, 
the only time a program is entirely skipped is v^hen the operator 
chooses to play with a previously established database, thus 
skipping Startem and Changem. 

3. Startem, Thesisl 

The primary purpose of this program is to present the parameters 
of the default database; therefore, the largest portion of this program 
does just that. However, the entire program is executed, i.e., the de- 
fault database is reviewed only if the first option, 'build a database 
with review' , is selected from the menu in Intro. If the third option, 

'use default database', is selected, this program simply transfers the 
default database files to the game database files. If the second option, 
'build database, no review', is selected, this program presents the second 
selection menu, which provides a detailed selection of how the game database 
is to be built. 
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Figure 4.4 Startem Flowchart 
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Figure 4.5 Changem Flowchart 



The methodology of the review is similar to the chaining of the 
programs, except that this is from an individual program level. The 
main program calls the first procedure which starts a chain through four 
procedures. The order of presentation of the default database is; 

i) A general overview of the ships, including aircraft on the 
carrier, type and number of missiles, and type of radars. 

ii) A review of the Surface-to-Ai r missile parameters, and the 
ships' radar maximum ranges. 

iii) A review of each ship's parameters, including position, 
course, and speed. 

iv) A general overview of the aircraft involved and how they 
are deployed. 
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v) A review of individual aircraft parameters including 
position, altitude, course, groundspeed, armament, type 
radars, etc. Only airborne aircraft are listed in this 
review. 

4. Chanqem, Thesis2 

As indicated in Figure (4.5), Changem is where the game data- 
base is built. The presentation of the variables available for alter- 
ation is done in the same order as it was in Startem. If choice four, 
'build fleet and aircraft', was selected from the second menu, then the 
ordering is virtually identical; otherwise, there is some distortion of 
the ordering. 

"Careful attention to the way the user sees a program - 
the so-called 'user interface' - ... makes the difference 
between programs that are friendly, forgiving, conversa- 
tional, and humane and others that are hostile, rigid, 
obscure, and machine-like." [^Ref. 4, p. 138] 

There has evolved recently some general ideas as to the nature 
of interactive computer models, and how they should be designed with 
respect to the user. (]Ref. 7] Several of these ideas, specifically 
feedback, consistency and simplicity, and how they have been incorporated 
in Changem are discussed below. 

The user needs to be provided feedback for his actions. It is 
natural for the user to need to know that his actions have been under- 
stood and accepted. This feedback should be obvious and displayed where 
the user expects to see it. Changem echoes all user inputs on the screen 
directly left of where the cue to enter has occurred. 

This presents another point, consistency. The user should not 
be required to guess where the cues will appear or where his feedback 
will occur. This consistency should be carried over from one aspect of 
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a program's operation to the next. This idea is evident throughout 
the program where a response to a program generated question is 
required. 

Simplicity. The simpler a program is to use the more it will 
be used. This also allows the more inexperienced user to use it 
correctly, competently and constructively. 

As mentioned earlier, a primary concern of an interactive 
computer program is the data entry. Toward this end Changem and all 
other parts of the "whole" program use a consistent data entry process. 

In each instance the following sequence of steps occur; 

i ) prompt , 

ii) provide feedback, 

iii) perform error check, 

iv) accept data entry. 

A prompt is provided for each data entry. It is always as brief 
and as specific as possible. If the entry is to change a default value, 
this value is presented. If there is a length limit, the length of the 
entry is indicated by an underline of appropriate length. On entering 
the data, whether it is a Yes/No response or a numerical data entry, 
feedback is presented, immediately to the left of the prompt line. 

An error check of the entry is performed. If the entry re- 
quires a single key stroke, as in answering a Yes/No question, then 
for an illegal response the entry is not accepted and the user is asked 
to reenter the response via an error message that again reflects what 

^One aspect of program consistency was altered in the graphic displays. 
The method of continuina the program was purposely altered to a different 
key stroke than found elsewhere. An explanation follows in Chapter 5, 
Abagame. 
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is expected. If the entry is to be numerical, as in changing the X 
position of a unit, the program accepts only digits and characters 
acceptable in numbers; it will not accept anything else, i.e., it will 



accept a "+" or as the first character and if the entry is a 
number, a is accepted. If an integer value is expected, the 
will not. be accepted anywhere in the entry. 



real 

It M 
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V. ABAGAME, THESIS3 



A. INTRODUCTION 

This chapter explains the game portion of the program. It 
describes the main program and each of the major procedures. 

B. MAIN PROGRAM 

Figure (5.1) is a flow diagram for the main program of Abagame. 

When this program is called the game database has been built, either 
in a previous session or in the Changem program. Abagame first calls 
the procedures INITIALIZE and DOAIRLISTS which form the linked lists 
from the game database, and then SHOWFORMS is called which presents a 
display of the forms used in the graphic displays. The program then 
asks the user whether he wishes to have the computer step through the 
game at a fixed time step. If so, the program will not call the 
SHOWSTATUS, NEXTEVENTS or NEXTSTEP procedures while all other aspects 
of the program are identical. 

Abagame then begins the loop that repeats each of the following 
procedures until the "game time" is greater than the default "endtime" 
of 160 minutes or the user tells the program to stop in NEXTSTEP. The 
first procedures called are AIRADARCNTC and SHIPRADARCNTC, which 
determine if any of the fleet units have any radar contacts. Then 
DISPLAGAME is called and presents the graphic displays of the fleet and 
the attack. SHOWSTATUS is called next and presents status information 
on the fleet units. The procedures NEXTEVENTS and SELECTOR, discussed 
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Figure 5.1 Abagame Main Program Flowchart 
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update time 



GETKILLS 



FLTUPDATE 




Figure 5.1 Continued 
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here as a single entity are called next. They allow the user to 
selectively alter the headings and speeds of friendly units. NEXTSTEP 
is called which allows the user to stop the program or continue with a 
time step of his choice. The program time is then updated according 
to the new time step. 6ETKILLS, the procedure which eliminates the 
"killed" enemy aircraft or "sunk" ships, is called next. The last 
procedures called in the loop are FLTUPDATE and ATKUPDATE. These two 
procedures update the fleet and attack positions according to the time 
step and the headings and speeds of the units. Vlhen the loop is exited, 
the program calls MAKEOUTFILE which creates "outfiles" of the surviving 
aircraft and ships. 

C. INITIALIZE, DOAIRLISTS, SHOWFORMS 

The procedures INITIALIZE and DOAIRLISTS are very similar. They 
form the linked lists that are used in the remainder of Abagame. 
Initialize is called first. It initializes the boolean variable "stop" 
to false, and the game time to zero. The SHIPDATA file is read from 
the game database and each record is assigned a sequential number and 
placed in the ship linked list. Also, the carrier's X and Y coordinates 
are noted. The carrier's position is referenced often throughout the 
program. DOAIRLISTS reads the AIRDATA file from the game database and 
according to whether the aircraft is an "enemy" or "frend" assigns it 
to the "atk" list or "air" list. The attack aircraft are assigned 
sequential numbers beginning at one. Since the displays are divided 
into attack and fleet, and the fleet consists of ships and friendly 
aircraft, the friendly aircraft need to be assigned non-conflicting 
numbers with the ships. Therefore, the friendly aircraft are assigned 
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sequential numbers beginning after the last number assigned a ship. 

This numbering is designed to facilitate the user's recognition of 
units between the graphic displays, the status displays, and the "event" 
displays . 

SHOWFORMS is the procedure that shows the user the different forms 
that will be used in the graphic displays. This procedure first calls 
the procedures in the MAKEFORMS library unit that form the figures, and 
then displays them on a graphic display with appropriate explanation. 

The actual forms are made by activating or deactivating specific bits 
in two dimensional packed arrays of boolean variables. 

D. GENERATING RADAR CONTACTS AND KILLS 

The two procedures AIRADARCNTC and SHIPRADARCNTC along with MAKECNTC 
have several functions. They determine if an attack aircraft has been 
detected by one of the four radar types of the fleet or if it has been 
killed by a missile shot, either surface-to-air or air-to-air. Missile 
firings are done in an "uncoordinated" mode. If a contact is within 
the range and the firing envelope of a friendly unit that unit will 
fire. SHIPRADARCNTC also determines if one of the attack aircraft has 
successfully hit a ship with a missile or bomb and whether that ship 
has been sunk. 

MAKECNTC forms a linked list of radar contacts, determining which 
attack aircraft are in radar contact and if more than one type radar 
is in contact which one will be displayed as having contact. MAKECNTC 
requires six parameters passed to it; 

i) type of contacting radar, 

ii) state of contact, either alive or killed. 
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iii) contact's X coordinate, 

iv) contact's Y coordinate, 

v) contact's number, 

vi) number of unit holding contact. 

AIRADARCNTC determines the interactions between friendly aircraft 
and attack aircraft. The overall process is to scan the friendly air- 
craft list as an outer loop and for each airborne friendly aircraft 
scan the attack aircraft list. For every combination of airborne 
friendly aircraft and each attack aircraft the ground distance, as 
opposed to slant distance, and the radar horizon are calculated. 

Radar horizon is calculated using; 

rh := 1.25 * Sqrt(alt of a/c#l ) + Sqrt(alt of a/c#2). 

If the friendly aircraft is an early warning aircraft, then the dis- 
tance between the units is checked. If this distance is less than 
the radar horizon and the maximum AEW radar range, then the procedure 
MAKECNTC is called, utilizing; 'air search radar', and 'contact is 
alive'. After return from MAKECNTC, the next attack aircraft on the 
list is checked through this entire process. 

If the friendly aircraft is an interceptor, the distance between 
the units is compared to the air-to-air missile (AAM) maximum range, 
and the radar horizon. If the distance is less than these values, 
the target is within the firing envelope, and the interceptor is 
armed with missiles then a missile is fired. The interceptor's 
missile count is then decremented and a random number is generated 
in the RANDOM procedure of the APPLESTUFF unit of the system. 1 ibrary. 
RANDOM generates a psuedo-random number uniformly distributed between 
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zero and "maxint", the maximum integer represented in the APPLE III. 

If the random number is less than or equal to "maxint" multiplied by 
the probability of kill for the missile then the attack aircraft is 
declared killed and MAKECNTC is called with; 'air intercept radar', 
and 'contact is killed'. If the random number was greater than the 
"maxint" multiplied by the missile 'pk', then MAKECNTC is called with 
the same parameters except that 'contact is alive' is used. After 
return from MAKECNTC, the next attack aircraft on the list is checked 
through the process. However, if the last check (distance compared 
to missile maximum range, distance compared to radar horizon, target 
within firing envelope, and number of missiles greater than zero) was 
not true then the distance is compared to the air intercept radar 
maximum range, the radar horizon, and the air intercept radar detection 
envelope. If the distance is within both of these ranges and the 
target is within the detection envelope, then MAKECNTC is called with 
'air intercept radar', and 'contact is alive'. If one of these com- 
parisons is not true, then the next attack aircraft on the list is 
checked through the process. The procedure is exited when all aircraft 
have been paired for the comparisons. 

In essence, this process is; check the shortest missile range; if 
within range, check for kill; if not within range, check for next 
longest radar range; if within range, generate contact; and if not 
within range, consider the next aircraft. 

As indicated, SHIPRADARCNTC executes virtually the same process, 
the algorithm is identical, only the complexity is changed. Radar 
Horizon is calculated using; 

rh := 1.25 * Sqrt(alt of a/c). 
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Ships may differ in their armament, but they are assumed by the program 
to have the same capabilities; short range surface-to-air missiles 
(SRSAM), long range surface-to-air missiles (LRSAM), fire control radar, 
and ship search radar. The SRSAM ranges (minimum and maximum) are 
compared to the distance between the ship and attack aircraft first, 
then LRSAM ranges, then fire control radar, then ship search radar. If 
the test that is true is for SRSAM, LRSAM, or the fire control radar 
then the radar parameter passed to MAKECNTC is 'fire control' otherwise 
it is 'ship search'. If the check was for a missile type then a random 
number is generated and a comparison similar to the one explained 
earlier is made. If, 

random number <= maxint * missile pk, 
is true then 'contact is killed' is passed to MAKECNTC, otherwise 
'contact is alive' is passed. 

At this point in SHIPRADARCNTC, it is determined if the attack 
aircraft has come within the range for a bomb drop or within range 
of an ai r-to-surface (ASM) missile. Range for a bomb drop is checked 
first, then the range for an ASM shot. A successful hit (determined 
by the same method as above) causes the bomb hit total or missile hit 
total to be incremented by one. The total hits on the ship are then 
compared to the hit tolerance for the ship and if the tolerance is 
exceeded, the ship is declared sunk. At this point, the next attack 
aircraft on the list is checked through this entire process. The 
procedure is exited when all ships have been compared with all attack 
ai rcraft. 
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MAKECNTC is the procedure that forms the radar contact linked list 
for each time step of the game. This procedure scans the contact 
list comparing each element's X position and Y position with the posi- 
tions passed it by AIRADARCNTC or SHIPRADARCNTC to determine if this 
attack aircraft being passed is already on the list. If it is not on 
the list, then it is put there. If this aircraft is on the list and 

if the contact on the list is dead, then nothing occurs. If the in- 
coming contact is indicated killed, then the incoming parameters 

replace those on the contact list. If the contact on the list is not 
dead already or indicated dead by the incoming parameters, the final 
contacting radar is determined according to the radar hierachy: fire 

control, air intercept, ship search and air search. As an example, 
when a fire control radar and an air intercept radar are in contact 
and the target is alive, then the fire control radar is declared the 
radar in contact, the displays will exhibit the fire control symbol and 
the status report shows fire control as the radar in contact. However, 
if the same radars hold contact and the interceptor had scored a kill, 
then the air intercept radar is used as the radar in contact. If the 
ship and interceptor fired a missile and both indicated a kill, then 
the one placed on the contact list first is used as the unit in contact. 
In this case, it would be the air intercept radar because AIRADARCNTC 
procedure is executed before SHIPRADARCNTC. 

E. DISPLAGAME AND GRAPHICS DISPLAYS 

Figure (5.2) is a general flow diagram for DISPLAGAME. DISPLAGAME 
is the procedure from which both the fleet and attack deployment 
displays are called. The first thing done is to call POSITRANSFER, 
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Figure 5.2 DISPLAGAME Flowchart 
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which is a procedure to build the two 1 inked 1 ists that the procedures 
SHOWFLEET and SHOWATTACK will use to make the displays. The first list 
is the "fit" list and the second is the "ene" list. Each is a linked 
list of records. Figure (5.3) illustrates these records, which are 
defined in the system. 1 i bra ry unit GRAFSTUFF. 

The "fit" list is formed by scanning the ship list and transferring 
the required information, then scanning the "air" list (friendly air- 
craft) and, provided the aircraft is airborne, transferring the required 
information. The "cnt" list (radar contact) is next scanned and the 
information on it is transferred. Likewise, the "ene" list is formed 
from the "atk" list (enemy aircraft). These separate lists are needed 
because the coordinate positions are actually changed when a screen is 
recentered, upscaled or downscaled. 



fit = record 


1 ink 


: fltpntr; 


what 


: fltyoe; 


num 


: 0..255; 


xpos 


: real ; 


ypos 


: real ; 


end; 

ene = record 


1 ink 


: enepntr; 


what 


; enetype; 


num 


: 0. . 255 ; 


xpos 


: real; 


ypos 


: real ; 



end; 



Variable Meanings: 

link : A pointer variable used in the linked lists, 
what : A program type, used to determine what figure 
to use in trie display. 

num : The unit number, assigned in Abagame. 

xpos : The X coordinate position on the screen, 

ypos : The Y coordinate position on the screen. 



Figure 5.3 Display Records 
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The procedures SHOWFLEET and SHOWATTACK do just what their names 
imply. They scan the appropriate list ('fit' or 'ene') and draw the 
correct figure and unit number at the X-Y coordinate position. The 
procedure WHATNEXT is then called and presents a selection menu, con- 
sisting of four choices that are drawn on the graphic force display. 

The user can upscale or downscale the display or recenter on one of the 

5 

figures on the display or he can continue the program. 

The same menu is provided on both the fleet and attack displays. 

The user is presented the fleet display on every time step through the 
game. After he sees this display, he is presented the option of viewing 
the attack display. 

The three procedures SCALEUP, SCALEDOWN, and RECENTER are in the thesisS.- 
library unit GRAFSTUFF. Additionally, this unit defines the records that 
form the "fit" list and "ene" list. The scaling procedures are very 
similar in style and operation. The scale is either doubled or halved 
with each call to the respective procedure. The procedure RECENTER works 
in the following manner. The appropriate list is scanned to find the 
unit on which the display is to be recentered. Then adjustment figures 
for each coordinate plane are calculated that are the distance from the 
screen's center to the unit. Then the list is again scanned and each 
unit's X and Y positions are redefined according to the adjustment figures. 



5 

This is the inconsistency mentioned earlier. This was done because 
the type ahead buffer of the APPLE III stores key strokes until the com- 
puter can act on them. During a recenter operation, a three digit number 
is allowed. Often though, the recenter is done on a single or double digit 
unit number thus a space or carriage return is required to enter the number. 
If this key is inadvertently held too long, it would cause the screen to re- 
center and then immediately type the space character. With the method used 
elsewhere, this would cause a page continuation. It was concluded this 
inconsistency was more desirable because it made the program a bit more 
"goof proof". 
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F. STATUS REPORTS, NEXTEVENTS, NEXTSTEP 



The displays are followed by the menu for selecting the status 
reports of the fleet. These reports show the display number, type of 
unit, coordinate position, position relative to carrier (aircraft and 
radar contacts only), heading of unit, and speed of unit. These 
reports are amplifying information for the displays. 

When the user is through reviewing the status reports, he is pre- 
sented the menu for selecting the events he desires to take place in 
the next time step. When a selection is made from the event menu, the 
selection is followed by further questioning to determine what the user 
desires to accomplish. For example, if he chooses to move a fighter, 
he is presented with each airborne fighter and asked if this is the one 

g 

he wishes to move. If he answers no to each one, he is taken back to 
the menu and no changes are made. If he answers yes for one, he is asked 
to enter the new heading, velocity and altitude he desires for the unit. 
After this, he is presented with the event menu again. He can then make 
another selection or repeat a selection for another aircraft (or ship) 
or quit. The user is able to review the displays and/or the status re- 
ports from this menu. Reviewing the status reports allows the user to 
see the alterations he has made for the next time step. 

When the user is satisfied with his actions and is ready to 
continue, he quits this menu and is presented the "next step" choices. 



g 

, X 111-! actually a misnomer. The user alters the heading, speed 
and altitude of a unit and with the next update and display the units 
are 'moved" accordingly. 
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He is told the current game time, in minutes, and is asked if he wants 
to stop the program. If he answers no, he is asked to enter the next 
time step increment. The last part of the program loop is the set of 
procedures that update the positions of the fleet and attack. 

G. GETKILLS, FLTUPDATE, ATKUPDATE 

The final three procedures in the program loop update the linked 
lists for the next loop. GETKILLS serves two functions, it deletes "sunk" 
ships from the ship list and deletes "killed" attack aircraft from the 
attack list. First, it scans the contact list checking for "killed" con- 
tacts. Then for each "killed" contact, it scans the "atk" list looking 
for the aircraft that has matching coordinate positions, and then 
deletes this aircraft from the "atk" list. When the scan of the con- 
tact list is completed and all "killed" attack aircraft are deleted, the 
ship list is then scanned. Each "sunk" ship is then deleted from the 
list. At the completion of GETKILLS, the lists contain only alive 
aircraft and floating ships. 

FLTUPDATE is then called and updates the positions of the fleet 
units. The new ship list is scanned and the library procedure GETNEWXY 
is called for each ship. If the ship is the carrier, then the coordi- 
nate positions are noted for future game reference. The procedure 
then scans the "air" list and determines endurance for each airborne 
friendly aircraft. If the aircraft does not have enough endurance to 
last the time step, then it is deleted from the list. If the aircraft 
has enough endurance, then the endurance time is decremented and the 
aircraft's new coordinate positions are calculated and recorded by 
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GETNEWXY. If the aircraft is not airborne, then the aircraft's coordinate 
positions are set equivalent to the carrier's. 

ATKUPDATE is the last procedure called in the loop of the program. 
ATKUPDATE scans the "atk" list and calculates and records the new coordi- 
nate positions for each attack aircraft. It next implements the attack 
profile. If the game time is greater than the attack retreat time, then 
the list is scanned again and the retreat heading, velocity and altitude 
are placed in the appropriate variables of each aircraft's record. If 
the game time is less than the retreat time, then game time is checked 
against a "look" time. This "look" time is considered to be an intelli- 
gence update time, i.e., after every multiple of this look time increment, 
the attack "gets an intelligence update", which consists of the new head- 
ing to the fleet. When the game time increases beyond these "look" 
intervals, the heading of each attack aircraft is updated. Also, when 
the first attack aircraft gets within 200 nautical miles of the carrier, 
each aircraft's altitude is changed to the "inbound" altitude. Most of 
these "profile variables" are written into the program as constants and 
therefore this "profile" can be changed by changing these constant values. 
Figure (5.4) is a list of the game constants and their meanings. 

When this procedure is completed, the program checks for a user de- 
clared "stop" or a game time greater than the default "endtime". If 
either is true, the program exits the loop and calls the procedure that 
forms the outfiles of the program. These files are placed on the second 
disk and can be printed using the FILECHCKER program. The files consist 
of information concerning the forces still in "action" when the program 
was halted. If the program is not halted, the game is repeated beginning 
with the check for radar contacts. 
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retrtime 


= 


120 


: Game time of retreat. 


retrthdg 


= 


090 


: Retreat heading. 


retrtalt 


= 


20000 


: Retreat altitude 


retrtvel 


= 


400 


: Retreat velocity 


inbdalt 


= 


200 


: Inbound attack altitude. 


inbdist 


- 


200 


: Distance from carrier for attack 
altitude descent. 


incr 




20 


: Intelligence update interval. 


to! 


= 


0.5 


: Miss tolerance for bomb drops. 


hittol 


= 


7 


: Number of hits a ship can endure 


recov 


= 


5 


: Instant recovery radial distance 


tindefault 


= 


160 


: Game end default time. 



Figure 5.4 Abagame Program Constants 
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VI. FUTURE DEVELOPMENTS, APPLICATIONS 



A. EXPANSION AND EXTENSIONS 

There are a few areas of the program that could be enhanced to make 
the program more flexible, more realistic, or operate/use memory more 
efficiently. 

Flexibility could be enhanced with the addition of a larger data- 
base or maybe several different default databases. More files could be 
created with several different types of scenarios, e.g., convoys, or 
offensive attacks against an air defense. The scenario of this program 
has much room for expansion. For example, the attack force could be 
altered for: 

i) the azimuth of the attack, 

ii) more or fewer aircraft, 

iii) highly specialized aircraft, 

iv) different formations, 

v) time delays between attack aircraft, etc. 

It would be a trivial matter to change the menus and chaining operations 
of Intro and Startem to allow more databases/scenarios. These changes 
could be instituted as possible classroom projects in a wargaming or 
simulation course. With the inclusion of these ideas into the program, 
the algorithms certainly would be scrutinized and assuredly enhanced and 
streamlined, thus enhancing efficiency. The program was developed and 
written with "brute force" algorithms, and therefore lacks algorithmic 
finesse. More time and a concentrated effort in this direction could 
lend more realism and/or increase the efficiency. 
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Several times throughout the development of this thesis, the problem 
of memory space limitations has occurred. Upgrading the computer to the 
256K configuration v/ould allow a more expanded and realistic solution to 
the presentations. This expansion would allow more drivers in the system 
definition and more memory for the program. The addition of a "printer" 
driver would enable printed output, from tables and lists to a complete 
listing of the default or game database. The program does create "outfiles" 
that retain information on and the status of the surviving ships and air- 
craft. The textfil e/program FILECHCKER will print these files to a 
printer if the system is coupled to an rs232 port.^ Filechcker requires 
compilation and a system configured for a "printer" driver before it can 
be run. 

Another avenue of expansion that could increase the program flexi- 
bility would be the addition of several attack profile (ATKUPDATE) pro- 
cedures. If this were done, the user could be presented with a menu for 
selecting the profile he desires to implement at the start of the 
Abagame program, then based on his selection the appropriate procedure 
would be called when the attacking force's positions are to be updated. 

An enhancement that would require extensive changes to the basic 
structure, but could add a higher level of realism would be the incorpora- 
tion of an event type structure between the time steps. With this game 
structure, a more realistic approach to radar detections and missile 

^This can be changed simply. Enter the text version of FILECHCKER 
and change the string variable in the rewrite statement from .rs232 to 
.silentype or .printer or the appropriate name of the "printer" device 
driver. 
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firing envelopes and of missile interceptions could be calculated and 
implemented. This would require more elaborate mathematical models. 
Specifically involving missile and aircraft interaction geometries. 

Alternatively, all interactions could be calculated on a very short 
time step structure between the game "review" times of the user supplied 
time step. This would require less extensive program changes than the 
next event structure and it would help eliminate the occurrence of 
missed interactions because of long time steps. 

B. APPLICATIONS 

The air battle computer program is not designed to test one's 
knowledge of weapon systems or characteristics; it is helpful in as- 
certaining the effects of tactical employment of various types of 
weapon systems. It illustrates the consequences of decisions and of 
different courses of actions on the many possible interactions between 
adversary units and provides an easily understood display of movements 
and operations of the ships and aircraft. The air battle program is 
most helpful with the timing of the tactical decisions required in an 
air battle. The ephemeral nature of decisions in a tactical situation 
belies the importance these decisions hold on the outcome of a battle. 

The length of time one decision affects the battle is often very short; 
however, the entire outcome of the battle may rest entirely on one of 
these tactical decisions. 

This program cannot be considered a cornucopia of solutions to the 
tactical decision problem areas it presents. It lacks realism in very 
important aspects of unit characteristics and the solution of interaction 
geometries. It provides, however, a learning experience in a recreational 
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environment and an interesting and economical method for exploring 
tactical environment decisions. Repeated use of the program is re- 
quired to appreciate the subtle differences between one manner of tactical 
decision implementation and another. 
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end f 

ir eiiei*r3S CpositJ - then deciinel t- posit - IJ 

end ? "C wi )i 1 e }• 

witiie pusi t ••!- lnth do 



ijeiiii I 

rood Ckesuuerdf ciierres Cposit3)5 
XT <ci'i«ii‘r3S CpositJ in dii:Jits + Z ' * ' 1) 
then beam 

write (citei'rds CpositJ)? 
posit ♦- posit + IJ 

if ciiarres Cpositx = then decimal 1= posit 

end 

else beairi 

if charras CpositJ = chr<bks> 

tiien beiJirt sc men t ro < bs ) ? posit t- posit - 1? 
if (criarras CpositJ in Cch r C sp ) f ch r < cr > J ) 
ti ien In til i- POSit - 1? 



end f 

end? -C wiiile 

I loni J ~ 0 ? 

if ciiarras CIj - tiien neii 

t'oi* posit X- 1 to lnth do 

if (ciiarras CpositJ in diSits) 

tiien nuin lO I: num t ord (char res CpositJ) - ord 
if \decimai <> 0) arid (lnth <> decimal) 
tiien fur i i— 1 to (lnth — decimal) do 
divisor divisor K 105 

reiium C- num / divisoi*5 



> 

true else neS 1= false5 



if neS 

tiieii readreai 

else resdrec#! 



- rei lum 
f'erium 5 



n d 5 






REftDREj^L 



f THE3ISTUFF 



1 5 



end 
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1 






Ur<I r BcnnINGS? 
.i.noi*in^xc cuu’e 34? 



INTERFACE 



USES 

i-t*^ iiiiuue^a F L run^cwriiJ ? 



CGNST 



o* 141G9C75 



rRGCEDURE uETNEwXY ( TNfHDGf^^EL 



INTEGER? UAR NXmNY ; REAL) 



FUNCTION DEGREES 
r(JNCTIOiN DISTANCc 



< XO ? YO f XR f YR * REAL) 
C XOfYOrXRfYR « REAL) 

IHPLEMENTATION 



INTEGER? 

INTEGER? 



rnOCEDURE GETNEUXY ? 

‘30^3 t re«#l ? 



vnR 

1 J j. L r 



L< 1 1 I 

U X ^ Ir 

r 3U'=» 
1 1;; 

1 1^ 
iij ? 



- vwi ^ ban / 600? 

- ii'jii fC >-i / 130? 

- n;^ T 4 C sin (r^Us)? 

- T cos (rads)? 



puNCTIGiN DEGREES? 
vAK 

;;iJxTf *3dxT t <*eai ? 
v<jice I iiiLciier? 



XI I 

;:uxt' ;:u “• ;;t'? 

^rfiJxT *- 'ju - yr? 
xt ;;.Jxf 0 

ti'icn xf ydi9 - 0 

Liien Uedrees 0 

else XT yijiT 0 

biieii debirees 
eiytf decrees 
y i y e XT y d X T - 0 

biien XT ;;dxF 0 



130 

000 



070 

090 



blien deiirees 
else 'Jejirees 
else ueaxn 

vdlue t- r'uond vlSO / <K eben / 

xf 3bs (v3xoe) <> value 
blien xf ;:dif : 0 

then decrees I- 130 f value 



y d X f ) ) 
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fL (L 



tJ 1 ';><=? 

l>J f 

eiMJ f 

rUNCTIOiM DIoTniMCEf 
vnR 

1 1 I 

;t»Jxf t- ;?u - I* f 
vjiJxT t~ 'JO “• 'j r* ? 
ij i Lcji ICO ♦ ••uuiiij (soerL ( sqp (;<cJ if) + s«r (odxf)) )? 
lU r 



ol jt? dear*eeti 
xf ;cdxf > 0 
{,hcn deai-ees 
else 'Jeiiroes 



*- 360 r value 

180 + value 
vjiue 



t=?i id ♦ 



UiN X T rinixcF GRHS ? 
xiiurirj'jxc code 36 data 27 r 



INTERFi^CE 



Oi'HR 



C| 1 X h'f U iMIt 


i"acked 


a I* 


rae 


CO* *uf0* *72 


of 


booleari ? 


ao wt u rni 


I-' a eked 


a r* 


i*ae 


C0**3f0**?3 


of 


boolean f 


L l 1 t f U I‘fll 


^'jcked 


a r 


ray 


CO* *3t0* *9i3 


of 


boolean t 


^^ow f‘d V 


j-'acked 


a r 


ray 


CO* *4r0* *43 


of 


boolean ? 


f c rd 1 * 


a eked 


a r ra'j 


CO* *4?0* *43 


of 


boolean f 


ax i*d r 


Packed 


a I* 


ray 


CO* *4r0* *43 


of 


boolean ? 


rd r 


packed 


a T* 


i-ay 


CO* * 4f0* *43 


of 


booleari ? 



ROCEDuRE nISFQRHSf 
ROCEDURE rtIRFQRMSf 



IHPLEnENTi^TIOjM 



nuCEDURE 


I'l I o F 0 R I'i S f 


vnR 




1 7 U 1 


0 ♦ * 20 ? 


bed X 1 1 




TO r X 


* ~ 0 Co j do 


f u r 


a 0 Lo 7 do 



Uoii XII 

jiiXf^furm ilxfJj i- Li'uef 



< SHIP FORM 



> 
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t 







if < ^ ^ ' 

ulltfl I 

if ecu - 

Uiieri 

.^j, Inform L^T/J 



0 ) ‘^rici 
: 1 ) or 



((j -. 3 ) or Cj 
fal'sef 

, ^ 4 >> ond UJ 

Ci,ol - ^‘ 3 lse. 



4 ) > > 



:-. false? 



;- 0 



f u r 

fur ^ 
jew rd r 

fur i • " ^ ^ 
fur u •- 
jew rd r 
fur i U 0 
fur u ♦ "* 
if ( (i 
Li i«n 



Lu •» '^a 
0 i-iJ 

Ci,u 3 :- 
Lo 3 '-liJ 
1 Lo 3 >jO 

Lo 4 do 

0 .. n)) 

- =L,“:. 



f u I 



oirui 
0 tu du 

for -I ■•-" 0 Lo 4 do 

<u = ^> 



C i y o J 



Li.en 
tfiv,e foi-dr 
^ _ 0 *0U 4 do 

. J :^= 0 tu 4 do 

T u r o ♦ ^ 

if uddCi T u; 
u>oi< 

ol-io <-sr-dr 

,^.^,-dr co»o: . 

j'^rd r 
surd r 
rd r 

ei »d ? 

u» id f 

,QC£MR£ nXBFORHS? 



Ci^ol 

Ci^d 3 



false? 



^ 4) ) 

:- true 
;=: false? 



2 ) or C J ' ■ o ) > > 
air SEfiRCH Ri^D^R 

interceptor RfiDi^R 
fire control radar 
c SHIP SEARCH RADAR 



CO f 4 J 
C 4 > 0 ^ 
C 4 T 4 j 



C 1 .J 3 ^'''■‘^ ' 

= false? 
false? 
false? 
false? 



v'nn 
1 ? u 



0 • 



20? 



ueSxii 

fur i • "■ 
rur 
if 

II I L f o rm 
j,ii Uf u rni 
inCfurm 
ui'uf u rm 
ui I Lf u rm 
luCf orm 

luCform 
^i,Cf urm 
uiLfurm 



i j do 
Lu 7 du 
Chen inlform 
3 Lrue? 

3 true? 

3 Lrue? 

3 true? 

,3 true? 

;3 :•- true? 

true. 

^3 true, 

t- true. 



< 



t rue 



interceptor/ attack 

else intfonn Ci’O-i 



form > 

;= false 
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i n tf U i‘Jii 


L 3 9 O 3 


: 


" true? 




ill uf U Ptti 


l3 9 ? 3 


• 


- true? 




fur i * - 


- 0 tu 


3 


du 


< EARLY WARNING A/C FORM > 


fur u 


1 - 0 


uu 


9 du 





' ( < 1 - 2 > u t* ( i ■= 3 ) ) 

Ulittft «iewfurm CirJ 3 *- Lrue 

if <C^ - 3) UP Csj - 4)) 



Lhet I 
else 



c(fe?wr o I 
ut-wf u t 
ijewf u r 
^ewf Q > 

lU > 



III CifBl 

91 
33 
93 



iti C 1 > 

m L 4 ? 

til C 4 f 



dewf u nn 
dewf U PMI 

t rue T 
L rue r 
I rufc? f 
U rue f 



Zi f sjl 
ZifJl 



true 

fdi^se? 



UNIT GRArSTUFF? 

XI I L r cu»Je 32 ueta 33 r 



interface 



CGN3 T 

;^ceii ~ 139 5 
uueii - 93 f 



T 1 Ui"l I t r 
ei lept 1 1 r 
f 1 t'jpe 
irt ie 

flu 



et le 



f 1 t > 

'"eue f 

C uo«j t y eij rlu r f iaht >eewcnt >eicn t r f cent > ssen t ) ? 
C P' Ine T Cl I tc ) f 
recu rd 

link I fIti-'fvUpT 
wiia t I f 1 t'jHe f 
nuiii * 0**2239 

;;Htjs I real r 
epui> ** f*eai f 

id f 

recu rd 

link t ef lepfil r f 
wiiat I eiiet'^Ke? 

Mum * 0 * • 233 f 
I f'eai > 

I real 9 

end 9 



v' n n 

flubaiae? fltne;;t 
uneu«i^»e 9 enenexL 
j ukU Puf 
i meet 1 1 



f 1 tpn UP? 
et lepi 1 1 p ^ 
uuu leal 1 9 
in teae r ? 
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15 1 ) 



kRGC£DUKE recenter? 
ROCEDURE SCnLEUr? 
ROCEDURE ECnLEDOWN? 



INPLEMENTrtTION 



PROCEDURE RECENTER ? 



.. r* u L i'.. ui CUT 
i/liun UuiiJ.li 

uiiuiie;;L •- uiiuUuiie* 

. V \ fc?i lUMu;; ♦ nuiii iiucunt) ditu (enenext <> nil)) 

uiiunej-iL ** - unurifc?K ♦ 1 ii'ik ? 

;;u»Ju 5 - ;;ceri - ei tene;: L'" • ? 

juuu *- ;jL*eri - ei lenextr'^ ♦ i/pQs ? 
unetie;;L erieba^e? 
whilfcf uneite;<L O riil <Jo 
btfiii ri 

eriurie;< t'" • t= uriene;< L'" • ;<pus r ;iadJ? 

ei ierte;< t'" ♦ ‘^pos eriene;<t.^ ♦ ypos 4* ^i^adu? 
unefi«;<t i ~ ei * 1 ink ? 

et id ? 

ui id 



u lue 



budif i 

flLiie;<t •- flLuase? 

wiiilu < ( f i Lne;< I'" ♦ rium <> nucent) and (fltne«t <> nil)) 
flLiie;<i t ■= f 1 Lne;; b'" ♦ 1 irik ? 

;;adu ;;uen - f 1 ? 

uadu — f 1 Lilt*;; ♦ ypoii ? 

TlLtie;'<L t— flLua'.;*e? 
will It? +'lLne;<b O ml do 
ueiii II 

t' 1 Lne;< L'^ • ;:pus l~ f 1 bi ie;<t'^ ♦ ;<Pos + ;;adu? 
f 1 Li ie;;t" . yHO«i *- f 1 ti te;< b^ • 'zipos 4- *^ad o ? 
flLne;<b f 1 bn«;; L'^ . link ? 
end ? 

end? < if > 



end ? 



do 



do 



P RGCEDuRE 



SCnLEur ? 



dnn 

;;adu>eaij»j I real? 



ueu XI I 

if uLkdraf 
Li len L»edin 

eiiene;;i l~ enebai>e? 
wiiile eneiie;^. b mi do 
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Lie*J X 1 1 

J - Keen - ei leneK f 

e<ju%j ♦= ecen - enene;?i ♦ eHOS f 
eneneK t- ;cceii - / 2 5 

erierieK * epue J= ecei i - *j4:jde / 2 5 

eneneKt ♦= enene;<i^ . 1 ink 5 
ernJ 5 

et lu 

el'je ueeiii 

fltne;{t J- flLb<jse5 
wiixie <> nil do 

uebiin 

Kijdo Keen f 1 UneK . KF'O-b 5 
eadJ * - eeen - f 1 IneK . epoia 5 
f 1 LneK ♦ Kpos *- Keen - Kade / 2 5 

f X LneK ♦ ypos t- eceii - eado / 2 5 

fll<ieKt 5- fl tneKt^» 1 ink 5 
end 5 

end 5 < if > 

e 1 1 » J 5 

PROCcDURE 3CALHDOUN5 
VAR 

;:aue7e«jdJ * real 5 
uehixi I 

if dLkiii*af 
tiien ue:;iiii 

eneneKl J- enebeee5 
whxie eneneKt v.l- riil do 
ueiiii I 

Kado ♦- Kceri - eneneKt'" ♦ kpos 5 
eado •- ecen - eneneKt'" ♦ 'as='OS 5 
eneneK t'" . Kf'os ♦ -= Kceri - KadJ 4c 2 5 

eneneK b'" . epo^5 ecen - aada M 2 5 

eneneKb I- enene;< t'' ♦ 1 ink 5 
end 5 

end 

el'^e beiiin 

flLnext «- flbbase5 
wi I X 1 e f 1 bi ie:< b O ii i 1 do 
bei^xn 

Ka*Jo *— Keen ~ f 1 bneK t'" • KPoe 5 
aado ecen - f 1 bi leK b'" ♦ 5 

f 1 bj'ieK b'' ♦ K^'O^i J- Keen - ;<ada 4( 2 5 

f 1 bj leK b*" ♦ ♦= eceri - eadJ 4c 2 5 

flbneKt ♦- f 1 bneK b'" ♦ 1 ink 5 
ei fd 5 

end 5 -C if > 

end 5 
cND. 
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I 

I 







i^RQGRrtH FILEMAKER 



USES bi Lu+'f f 

VAR 

'ji i le t file of si'iipJ 

sjxrmfile I file of aii'crofU? 

i f yj ♦ 0 ♦ ♦ 200 f 

PROCEDURE HAKESHIPFILEt 



Ueiiin 




1 ink 


: - nil? 


c 1 e s ^ 


• — cv? 


nuin 


0? 


KPOS 


1 — 3 ? 


epo«3 


: - 10? 


p im 


023? 


soe 


20? 


f c tid 


40? 


ss ri lid 


so? 


1 riaein 


0? 


3 1‘sam 


;=^ 40? 


1 rinnk 


0.4 ? 


3 I'lllPK. 


0.7 ? 


s rmin 


0? 




20? 


1 I'liiiii 


10? 


1 rmci;i 


40? 


>ni 1 1 b3 


Of 


oi 1 1 Ls 


Of 


3UI ik 


l — f o 1 se ? 


ei i*J ? 


< w. 


poL < 3hiH inf 1 1 e ) f 


for 1 1 Lo 


4 do 


betiin 




oit(i ^iiiPinf 1 le'*' do 


been 1 




link 


1 - nil? 


L* 1 O 3 3 


desl? 


1 loin 


0? 


p i III 


♦ - 023 ? 


300 


20? 


f c rniJ 


:-= 40? 


3 3 ri lid 


30? 


1 reoin 


i - 0 ? 


3 »• 3 0111 


20? 


1 1'inpk 


0.4 ? 


3 rinpk 


0.7 ? 



with 
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'a nni 1 1 


; - 


0? 


riiic^;; 


: - 


20f 


1 mix 1 1 


: - 


lOf 


1 miei;< 


: - 


40? 


tilt IX 


: -= 


0 f 


ulix Is 


: - 


Of 


^unk 


:- 


f a l^e f 


L'u^e X 


of 





1 


t 


ue:^ II 1 


MPOd 


: - 


3 f 


UPOS 


J - 11? 


end ? 


2 


7 


bed XII 




: - 


6 f 


^/POS 


12? 


end ? 


3 


; 


bediri 


Kpod 


: - 


7f 


UPUS 


9? 


end ? 


4 


: 


bed in 




: = 


4 f 


ypos 


:=^ a? 


end ? 


end f 






< 




C3se 


> 




end f 




< 


ox 


th 




> 






puL ( 'jhxp inf i le ) 














ei id f 




< 


for 




> 







rur 1 1 Lo 4 do 

beiiii t 

wilij 1 le'^ do 



link t- 


nx 1 ? 


c 1 e ^ ^ J - 


c rs r ? 


nuni 1 - 


0? 


p i in J - 


022? 




20? 


fcrnd := 


40? 


’adrnd ♦- 


30? 


irsem ♦= 


20? 


^i-s«iin 


20? 


1 rnipk • ■= 


0*4 ? 


smipk J-= 


0*7 ? 


smixri C- 


0? 


s 1‘ineix ♦ “ 


20? 


Irnixn J- 


10? 


1 rme:< • - 


40? 


mill i - 


0? 


bl 1 X ts ♦ - 


0 ? 


'-»ufik J - 


f el^e? 



\ 



Ctise 1 uf 



1 : 


bed in 


;<POd 




2? 


dpos 


J - 13 ? 


end ? 


n * 


bedxn 


;<PO^ 




Z ? 


ypos 


II 

X* 

•** 


end ? 


3 I 


bed XI 1 


j;PO-b 


: ::= 


3? 


'dPOS 


:= 13? 


end ? 


4 : 


bedxi 1 


;<POd 


: - 


?? 


'jpod 


10? 


end? 


end ? 




< 




C3^e 


> 




ei id ? 


< 


ox 


tri 




> 







< ‘jiiiPinf X Itt > 



fc*» id f 

ir-nd f 



< fur > 

< Mi^KESHIPFILE 
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PROCEDURE MAKEFRENDLTnIn ? 



ijtftiiri 



fur i • ~ 1 to 


24 do 




ueti 11 1 






with uiriitfile'" do 




ueiiii 1 






link 


J - nil? 




;;i='us i 


- Zf 




'^f^US 1 


-- 10? 




c*i t : 


- 0 ? 




uzm ti 1 


0? 




velc t'^ 


0? 




xff 


t ~ f rend ? 




ucf rt id 


X - 111 top t ? 




111 trid r 


120? 


< 


u 1 ri id 


:= 4.0? 




uienv 


:-= 120? 




Uc^in 


t - 6 ? 




cfeini^k 


♦ ~ 0 « Co ? 




d<din r*t id 


20? 




uoinonv 


* ~ 60 ? 




cu*s»e 1 


of 




1 : 


bed in 






;<pus J - 


o r 




SPUS 4 ~ 


10*0? 




di t 


20000 




di: III ti l • = 


025? 




velcty 1= 


25? 




end ? 




n 


bedin 






KPUS ** - 


5 « 5 ? 




ypus 1 - 


1 0 ♦ 5 ? 




di t :-= 


20000 




h-= 


025? 




velcty i- 


25? 




ei id ? 




end? 


•C case > 


end f 


< with > 


Put ( d 1 r inf 1 le > > 




ei id T 


< fur > 


f u r 1 • — 1 to 


6 do 




ueu 11 1 






with uii'infile'^ do 




ueiiiri 






1 ink 


t — nil? 




;jpus 


♦ - o ? 




dPOS 


10? 




t 


I - 0 ? 




e«:in ti 1 


0? 




V e 1 c i d 


0? 




iff 


:= fr*end? 




«<cf 1*1 id 


« ~ oew ? 




uewi id r 


240? 





minutes > 
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ei id f 
Htj t 
wi ld f 



• •= 200? 
ca-iae i u+' 

1 ** ue:Jin 

ci I L 

4d*:m th 

velct^ 
end r 

2 I beiiin 

;;pui5 

al I 
a a til th 

velct^ 
end f 

3 I besiin 

;tpus 
epoe 
elL 
eztri Lh 
velcte 
end T 
< 

“C 



KJ f 

23? 

13000? 

025? 

25 ? 



12 ? 

26? 

15000? 
025 ? 
25? 



19? 

14? 

15000? 

025? 

25? 



<ai I* inf lie) ? 

< 



case > 
uii til 

f o r 



MAKEFRENDLYi^IR 



PROCEDURE MnKEATTACKArR? 



beU it I 
fur i 
f u I* j 
beii 



to 

tu 



do 

do 



1 
1 

XI 1 

X th ax rinf i le 
bed in 
1 ink 
a cm til 
iff 
asmpk 
astiienv 
<^sm rnd 
bumupk 
case X uf 
1 t beaxn 

1 f a = 
ti len 
else 



al t 

veicts 

asm 



do 

nil? 

270? 
enems ? 
0 ♦ 60 ? 
180? 

30 ? 

0 4 55 ? 



1 

if 



bedin 


;<POS 


50 ♦ 0 ? 




SPOS 


a - 
tiien 


bed in kpgs 


50* 


a ? 


SPOS 


else 


bedin ;tPOS 


50* 


3 ? 


SPOS 


20000? 









1= 30 *0? end 

t= 30*5? end 
1= 29*5? end? 



I — 350 ? 

I = Of 
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boiriu *• - 2f 



e r 1 ij ? 


< caee 1 


> 








be si in 












if J - 


1 










U len 


besiin ;;i 


PUS 1 ^ 60 ♦ 0 ? 


epos 


: = 


o 

o 


elee 


if J = 2 












then besiin 


xpos 5- 60*3? 


epos 


: = 


40.3 




eiee beein 


;<pos I- 60*5? 


epos 


: = 


39 ♦ 3 


ij i L 


10000? 










ve ic Le 


400? 












l - or 










buinb 


; - 0 ? 










ei id ? 


< case 2 


> 








beiiin 












if J - 


1 










then 


beiiin ;<POS 60*0? 


epos 


: = 


o 

o 


ei ^se 


if u = 2 












then besiin 


j<pos J— 60*3? 


epos 


: = 


30 . 5 




else be^in 


;tPOS 60*3? 


epos 


: = 


29.5 


elt 


10000? 










V e i c t e 


:=• 400? 










eem 


1= Of 










bumb 


0? 










end ? 


-C case 3 


> 








beii in 












if wi - 












Uien 


beiiiri i<\ 


PUS 60*0? 


epos 


: = 


20.0 


el«»e 


if J = 2 . 












then besiin 


;tpos t- 60*S? 


epos 


♦ ^ 

♦ ^ 


20.3 




else besiin 


;<POS t — oO ♦ 5 ? 


epos 


: = 


19.5 


eit 


10000? 










velcte 


l = 400 ? 












♦ - Of 










bumb 


1 — 0 ? 










ei id ? 


< case 4 


> 








bee 11 1 












if u - 


1 










then 


besiin 


PUS t - 63 ♦ 0 ? 


epos 


: = 


35.0 


e 1 ee 


if J - 2 












then bee in 


;;pus C- a3*3? 


epus 




J3 ♦ w 




else be?jj.n 


.;pus *- o3.3? 


epos 


* -- 


3*^ . 5 


^ 1 1 


— 1000 0 * 










V e L c t e 


1 — 330 7 












4 ? 










bumb 


♦ — 2 ? 










end ? 


0 case 3 


y 








been 1 












if u - 


1 










t( lei 1 


beSin iu 


pos ♦ — 63 ♦ 0 ? 


epos 


: = 


25.0 


ei ee 


if a ^ 2 












then beSin 


Jipus 1 - 63 • 3 ? 


epos 


: = 


a5 . o 




else beSin 


;<pus t- o3.3? 


epos 


: ^ 


24.3 


ext 


10000? 










veie te 


i - 330 ? 











f end 

f end 
f endf 



f end 

f end 
f end f 



f end 

f end 
f end f 



f end 

f end 
T end? 



r end 

f end 
f end? 
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uumu 
(sJI mJ f 

is?J l»J f 
fc*f lU f 

h'tjL (cjiriii-Filt?)? 
ei lu f 

ei lu r 
ijeai n 

reuM-xLe ( ‘ii » ip h it x ' np2 
i‘t?wrxL(^ < «#x rx I'lt"* X le >'np2 
in«ikfcfsi 1 X PT X 1 e ? 
tti«ikw+' rtfn«Jl^«ix r? 

(Tit*kt-«3 L b«*ckd X r* ? 

cl use ( siiipxi if X le > luck ) J 



♦ -= 4 ? 

2f 

-C case 6 > 

-C case > 

< with > 

-C for/for > 

< makeattackair 

-C MAKEFILES 

si 1 xp xnf X le ♦ 'Ja ba ' ) ? 
ax rinf X le . da ta ' ) ? 



close 
end * 



( ax rxiif i le > luck ) r 

< MAKEFILES 



jr 



y 



FRuGnnM F ILECHCI\ER? 
iJSES Liiesxsbuff f 



VAR 

siiputxbfxie I fxie of siiip? 
axru»jbfxie X fxle of aircrafts 
i > u ♦ 0 ♦ ♦ 200 f 

kxnu X sbrxna? 

oubfxie X be;s b 5 

PROCEDURE SHIPCHECK? 

PROCEDURE 3HIPWRITEJ 



wrxbeln(outfxle) f 



nunibe r ' ? num X2f 



ues X f I 

uxbil shpoubfile^' do 
uesiii I 

w r X bell I < uu bf X le ) 5 
w r X be In C uu bf x le > ' ' f kind f 

a r 1 be In < uu bf x 1 e ) ? 

wrxbe <oubf xler 'X-Y coordinabe position 
u r X bel n ( u»j bf i ley };pos X A XI f ' r ' ? spos XAXlf'’)*'^)? 
w r X be In < uu bf i le ? ' Cu r ren b directxon of inoveraent 
w r 1 be In ( uu bf 1 1 e? ' Cu r Pen b speed of advance 
w p i be inx uu bf X le T ' Numbe r of luni3 ranxie 3AM' 's 
w r X be in < ou bf X le f 'Number of 
u I- X be li I < uu bf i 1 e ? 'Numue»* of 
w r X bell i < uu bf X i e f ' Number of 
end T -C wx bh > 

end? -C 3HIPURITE > 



ui r i beln ( outf i le ) ? 



) i 



short ranxie 3AM' 's 
missile hits taken 
bomb hits taken 



( ' ) ? 

' fPimJo? ' ♦ ' 
' ^soaJoT ' . ' 
' f 1 rsam XZf 
' > srsam X 3 ? 
' f mhi ts i 3 > ' 
' > bhi is : 3 f ' 
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LiWii -LI I 

c C ii^uu Lf i it* ? ' ^ua • 2 I shpau tf i ie ♦ data ' ) ? 
i t - 0 ? 

p tiiie ( u u t +' 1 1 f ) f 

w I - 1 tell I < uu tf i itf f ' SHIPS ')f 

will la NOT au-F ( si jpou tf i la ) do 
uasi ii I 

i • l T If 

wxuh SI ipuij Lf -L la"' do 



= ' CaiM' lar ' f 

~ 'Destrosar' 
= 'Cruiser'? 

< case 



Ua 2 :ili I 

case class of 
cv t kind 
das L i kind 
crsi‘ I kind 
ai id f 
sill pur I ta? 
if i mud o — 0 
Liiari bad in 

paiia < utjtf I la) f 
wri bain < outf i ley 
ai id f 

and? -C 

dab ( si ipuu Lf i la ) f 
ai id f f 

ciusa < siipou tf 1 la y lock ) ? 
and? *C 



for/with 



uhi la 



SHIPCHECK 



FnOCEDUPE rtIPCHECK? 



PROCEDURE nTTnCKURITE? 



SHIPS con t ♦ ' ) 



basi 1 1 1 

wxLii <ji ruu tf i la''* do 

bahi -LI I 

u r 1 Lain ( uu bf ile)? uri tain ( ou Lfila)? wribaln<outfiia)? 

w r i La ii I ( uu bf i 1 a ? ' 'fkindy' aircraft riumber ' ? num t 3 y ' ♦ ' ) ? 



u r i baii i(uutfiia) ? 

wi‘iba V uo bf 1 1 e > ' X“T coordinate position 
wri bain < ou tf 1 le y ;-:pos I 4: 1 ? ' f ' ?spusl 4 : 1 r ' ) ♦ ' ) ? 
w r i bain ( uu tf 1 la > ' Co r ran t coursa / headind 
wribaliivuutfiia? ' Cu rT'ant velocity 
u r 1 La li 1 < uo tf i Pa f ' Cu r ran t al 1 1 tude 
u r - 1 ball I < uu tf 1 la > ' Numba r of i^ 3 ii''s 
w r 1 bain ( uutf 1 ie f ' Nuifibe r of bonib''s 
ai id ? < wi bli y 

and? f i^TTnCKUR ITE y 



: c ' ) ? 

: ' f 32 jnth: 5 ? ' . 

: ' > veicty ♦ 5 r ' 

: ' faltt^f ' . ' > 

: ' f asm : 5 f ' 

t ' f nbomb J 5 f ' 
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PROCEDURE INTCFTURITE? 



wri belli ( outf i le)? uiribeln<outfile)f 
' fki nd f ' nutnbe r ' ? nuin 1 3 f 4 ' ) f 



Lieii xi'i 

wibii <i#i r‘ou bf i le'' du 
uei^i n 

wr 1 bein< outf i ie) 5 
wrx beiri< outf i ie f ' 
uir i be in < o«j tf lie)? 

write ( outf i le F ' X- Y coordinate position 
wri belli C ou bf i le > xpos ♦ 4 J 1 f ' F^posi 4 ♦ 1 f ♦ 
w ri belli V Qu bf i le F ' Cu r ren b course / head in 
wri belli < ou bfi le F 'Current veloci bo 
w r 1 beln ( ou bf i le F 'Current altitude 
w f ' 1 teln ( ou tf i le F ' Number of 
wri be in < ou bf i le ) f 

w r 1 tell I ( ou tf i le F ' No be ♦ i^ititude = 0 ==> 

enuF -C witii > 

end? < (^TTi^CKURITE > 



) F 



< ' ) F 

' F a;:nith : 5 f 
' F velcto t 5 
' F3lt:5F ' ♦ 
' F asm i 5 F ' 



Aircraft is on carrier 



PROCEDURE nEUURITE? 



wri be In ( outf i le ) f wri beln ( ou bf i le ) f 

" fkinfjf ' aircraft number ' Foum I 3 f ' ♦ ' ) f 



bei^ii I 

with ai routf i le"' do 
u e li 1 n 

wri beln < outf i le ) F 
w r 1 tell I ( ou bf 1 le F ' 
w r 1 belli ( outf i le ) f 

write (outf ileF ' X-Y coordinate position 
wri belnCoutfileFXPosMJ 1 f ' f ' FeposI4J 1 f ' ) * 
wri tein<outfiieF 'Current course / headini^ 
wr 1 beln ( ou bfi le F 'Current velocity 
wr L beln < ou bf i le F 'Curren t ai bi tude 
writeiii(oubf ile> f 

w r 1 beln < outf i le F ' Note i f^ititude - 0 
end? < witii > 

end? < ATTi^CKURITE > 



) F 



< ' ) F 

' F azmth J 5 f 
' F velcta : 5 
' Falti^F '♦ 



-=> 1^1 rc raft is on carrier 



bee in -C AIRCHECK > 

rese t ( ai rou tf 1 1 e f ' aba 4 2131 routf i 1 e • data ' > i 
1 i = 0 F 

pade <oubfiie>? 

wri beln (outfileF' AIRCRi'HFT 

while NO r eof (airoutfile) do 



' ) : 



oe!j II I 



1 • 1 r IF 

with airoutfile" 
iff of 



do 



ei leme 
f rei iiJ 



bed in kind •- 
case acf rnd of 



' Enemy ' 



a ttackwri te ? 



end ? 



intcpt : bed in 

kind ?-= ' F idhte r/ in be rcept ' 
intcptwrite? 
end ? 

aew t bed in 
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I 



kind ^Eariy warnina'? 
aeww r i be f 
end r 

endf < case acfrnd > 

end? < case iff > 

det C «di routf 1 le ) ? 
if 1 uiud 3-0 
blien beiiin 

Kade (outfile)? 

writeln (uutfilef' AIRCRAFT 

ei id f 



e II d f 
ciuse 
ei id f 



< while > 
(ai 1‘outf ile> lock > f 

< air-check 



> 



beiiin < CHECKFILES > 

rewrite ( ou tf i 1 e f ' ♦ rs232 ' ) ? 
jiii>^check f 
ai rci leck ? 

close < ou tf i 1 e > lock > 

end. < CHECKFILES > 



\ 



cont . 
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FROGRnn IiNTRO? 



USES ci is tuf t" f bf le^i i s tuT f ? 

PROCEDURE INTRODUCTION^ 



Ueiiii I 

‘jC i-nci I b ro < cl I* > ? rricn t ro ( or f ) ? write in? wribeln? 

wri belli ('Tiii'^ the nIR Si^TTLE ANALYSER (ABA) sbertup p rosJ ram ♦ ' ) ? 

wT'i belli? 

w i*i bell I ( ' If 'jou have not airead^:^ done sot please insert the ABA*2 disk ') 
wri belli ('in disk drive number 2 *')? 
wri be in ? 

wri belli ( ' ThrousJJiout LJie e;:ecubion of this program sou will be')? 
wri belli ('presented with several selection options* In each instance')? 
wri Lein ('please ciioose sour desired option bs tspin^ the appropriate ' ) ? 
wribeln ( ' responcef if sou here a beep f siinpls attempt to re-enter*')? 
w r 1 bell i ? 

wri belli ('Care should be taken not to hold down a selection kes* ')? 

wribeln ('It mas Produce unde be rmined results due to the auto repeat ')? 
wribeln ('funcbiori of the kesboard* ')? 

w r 1 be In ? 

w r 1 bell I ( ' You mas wisti to have available some paper in order to make ')? 
w r 1 beln ( ' I lo bes to sourselff or bo plot the current positions of the ')? 
w r 1 be In ( ' f o rces > and/or' to determine movements of sour forces*')? 
wribeln? wi'iteln? continue? 

end? -C introduction > 

PROCEDURE INTROTUO? 



oesin 

sc ruci I b ro ( cl r ) ? sc men t ro ( of f ) ? wribeln? 

wribeln('ror sour convenience the initial positions are determined ')? 
w 1*1 be ii I (' and lased out on a 100i<lC0 ilrid wiiere each unit is 10 NM* ')? 
w r 1 tell I ( ' For e;<ample if tile cat'i'ier is at (lOflO) and an attack. ')? 
w r 1 tell I ( ' ai rci'af b is ab (39*C»10>» tire aircraft is 795 nautical miles ')? 
w r 1 beiri( ' due East of tire carrier* The arid is oriented as follows? ')? 
wri beln? 



wr 1 belli ( 


000 


North 


1 s 


to 


the 


top * 


' ) ? 


w 1 * 1 be 1 II ( 


090 


- Eas t 


1 s 


to 


the 


r idh b * 


' ) ? 


w I* 1 bell i ( 


180 


- 3oubii 


IS 


to 


the 


bo t tom * 


' ) ? 


wri bell 1 ( 


270 


Uesb 


is 


to 


the 


left* 


' ) ? 



w r 1 be li I ? 

w r 1 bell I ( ' Due bo tire nature of tlie screen and tire computer Graphics ')? 
w I'l belli (' bile re will appear to be some distortions when the 100;<100 ')? 

w r i bell I V ' d f‘ id is b rai isf o r*med bo the screen' 's dimensions* Also» be')? 
w r 1 beln V ' awa re biiat the distances depicted on the SraPhic displass ')? 
wr 1 belli < ' a I'e deceptive due to tiie sice of the figures* ')? 



wri beln? 
w r 1 beln ( ' 
wri bell 1 ? 
ei id ? 



wri belri ? 
wri beln ? 



Now Leb''s BeSin ')? 
continue ? 
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PROCEDURE INTRO THREE? 



Lieu if! 

uc l•lru•n U ru ( c 1 r ) ? bc men L ro ( oP -F ) ? write In? write In? 

wriLelfU'If uuu have plaued thiu :Janie before then uou mau be familiar")? 
w ri Lein V ' wi til the Uefauit input data base and/ar sou mas iiave ")? 
wri tein( "previousls remodeled it to suit sour needs*')? 
w r 1 te in ? 



w r 1 te ii I V ' P 1 ease select one of tiie fallowing options I ')? 



w r 1 tel n ? 
w r 1 te in C 
w I' 1 tel 1 1 ? 
w r 1 te In ( 
w I* i t e i n ? 
- . L toil I ^ 
w r 1 te 1 II ? 
w r 1 to ii I V 
w r i te In? 
write ( 



wr 1 teln ? 

1 : BUILD DATABASE? WITH REUIEU of default database*')? 

2 : BUILD DATABASE? WITHOUT REVIEW of default database* 



o 



use tiio 



ABASE parameters with NO REVIEW* 



4 * Use tl le 
w r X teln? 
Tape a number 



DATABASE parameters retained 
w r 1 teln? 

f roin 1 to 4 I ' ) ? 



FROM LAST GAME 



read ( selection)? 



) ? 



' ) ? 
' ) ? 



sc rficn t ro ( on ) ? 

wiiiie NOT (selection in C'l'**'4'^) do 
bed II I 

sernent ru (bel ) ? writeln? 

write ( 'Must be a number from 1 to 4 !! —— Please trs aSain t ')? 

read (selection) 
ei id ? 



ei id ? 



bed 11 1 



< INTR0THE3IS 



lilt rouuo 1 1 on ? 
lilt ro two ? 

II 1 1 ru ti I ree ? 
case selection of 
' 1 ' I bedii I 

setevai ('complete prodram')? 
se tci lain ( ' * u2/ thesi si ♦ code ' ) ? 
ei id ? 

'2' C bedxn 

setevai ('allow ciiande')? 
se tchain ( ' * u2/ tiiesis 1 ♦ code ' ) ? 



' 4 



of id ? 
end ♦ 



end ? 
bed 1 1 1 

setevai ('use default')? 
setciiein ( '♦ u2/ tiles is 1 ♦ code ') ? 
el id ? 
bed 111 

setevai ('last pa raine te rs ' ) ? 
setciiain ( ' ♦ u2/ tiiesisS ♦ code ' ) ? 
ei id ? 

■C case > 

< INTR0THE3IS 



> 



> 
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U. fL fl. 



PnOGRAM oTnRTEn? 



USES ci)an i‘j tu+'P f tu-f P ? 



'^riR 

-bh IT 1 1 e f 'j>i ^ iP'J«j Lei t Pile of ship? 
oiJ'iiifilef uii'Uotci t file of dxi'croftf 
kii iij f Ciiui ce • sLrifiiiJ 
1 > o I 0 • * 200 > 

roceUore Pari two? fo (‘Weird? 

(‘uotjduro Po r L ti u‘fc?« ? foi*w<irdf 

ruct^dure PorLfourf fa(*w«ird? 

PROCEDURE DEFnULTFORCES; < PART ONE > 



Ijtf i n 



loi I L (*o V c 1 r ) 
w r 1 Lein f 
or X Lein ( ' 

'-j I* 1 Lein > 
w r X Lei II ( ' 
u# r X Le in ( ' 
un* X Le il l C 
w rx Lein \ ' 
wi'x Lein ( ' 
w r X Lein < ' 



rricfit i-o < of f ) ? wntein? 

FLEET COMPOSITION ')? 

i Carrier - with? ')? 

2 suuadrons of interceptors (24 aircrafD* ')? 
6 AEU aircraft* ')> 

2 short ranee missile batteries (40 missiles)* 
Search radar and airborne intercept receivers* 
Ship/ship and ship/air cominuni cat ions * ')> 



' ) f 
' ) f 



w r 1 tein ? 
w 1' 1 Lein ( 
wr X Lein < ' 
w r X Lein ( 
w r X Le li i ( ' 
u# 1 * X Leii I C 
u r X Lein f 
ei id f 



4 Cruisers (missile pickeL ships) - each wiLhJ ')f 

1 ions rande missile batters (20 missiles)* ')> 

1 sriurt ranse missile batters (20 missiles). ')> 
Search radar and airborne inLercept receivers. ')? 
Ship/shij- and ship/air communications* ')f 
part Lwo r 

< PART ONE > 



PROCEDURE PARTTUIOJ 



bed 1 1 1 

V# r i Lein ( 
w r 1 Lein ( ' 
w I* 1 Lein ( 
w I * 1 L e i II ( ' 
w r 1 Lein f 

el id f 



4 Destroyers - each wiLli? ')f 

1 s^lorL rande missile batters (20 missiles). ')f 
Search radar and airborne intercept receivers* ')? 
Siiip/ship and sliip/3ii* communications. ')f 
continuey pa rL three? 

< PARTTUO > 
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RCCEDURE PrHRTTHREE? 
PROCEDURE .''USSXLEURITE? 



i 1 1 

SC men L ro < c: 1 r > ? sc rnent ro < uf-F ) ? write Inf 



wiuh si i i>=» inr i le'^ do 



Ueain 

w I* i Lf li I < 
w r 1 Leii I f 
w r 1 tell I < ' 
w r i te li I f 
w ri tell j ( 
w r i teln < ' 
w r i te In < ' 
w r i teln ( ' 
wf' 1 teln f 
w r i tell I < ' 
w r i te in < 
un'i teln< ' 
wr i tell I ( ' 
w r 1 teln f 
un'i teln< ' 
wr 1 tell I f 
w I* 1 teln ( ' 
w r 1 teln < 
w i‘ i teln? 

end f 

ei iu f 



NOTE :: DISTi^NCES -are measured in- NAUTICAL NILES 

wj'i teln f 

NISSILES ')? 



Siiort Rariiie su rf ace- to-ai r missiles 
Probability of kill 
Ninimum I'anee of firing envelope 
Nax iinuin raride of firini^ envelope 



SRSAM 
' f s rmpk I 
' f srmin t 
' f s rmax « 



Lonil Rande su rf ace- to-ai r missiles 
Probability of kill 
Ninimum rariile of firing envelope 
Na:<iinuni rari^e of firinsi envelope 
wr i telnf 



RADARS ' ) f 



LRSAM ' 
' f 1 rmpk. « 
' f 1 rmin J 
' f 1 rmax i 



< 



Sijip search radar maximum ranae 
Fire control radar maximum ranse 
continue r 



' f ssrna : 
' f f erna I 



With > 



< 



NISSILEURITE 



) f 



' ) ; 



> 



PROCEDURE SHIPUiRITEf 



ben 11 1 

witii siiip inf 1 1 e"^ do 
beii ii I 

writeln? wi'itelnf 

wr 1 telii ( ' Ship number 'fxl 2 f' is a ' fkindf ' ♦ ' ) ? 
wr 1 teln f 

write C' X-Y coordinate position? (x»y) i ')? 

w r i te In ( ' ( ' f xpus t 411 f ' f ' f ypos 

writeln(' Direction of movement? PIN * ^fPim* 3 )? 

writelnv' Speed of advance? SGA I '^soaJ 3 >? 

end? < With > 

end? -C SHIPURITE > 



beoin -C PAR..HREE > 

reset (ship inf lie^ 'ABA* llshipinf ile«data' ) ? 

Ill SSI lew rite? 

sc rnci 1 1 ro V cl r ) ? sc rncri t ro ( of f ) ? writeln? 

writeinv' NOTE tt SPEEDS -ai'e measured in- KNOTS* ')? 
w r 1 teln ? 

writeln(' SHIP PARAMETERS ')? 

1 J — 0 ? 

wiiile NOT eof < siiip inf i le > do 
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Cl u\ Cl cn cn ^ cn ca ci 



I 

1 



beii II i 

1 • ~ 1 T If 

With ip inf i 'Jq 
beii in 

Ccfse of 

c V ♦ k i nd := 'carrier'? 

<Je^t I kind t- ' des t royer ' ? 
cr^sT I kind I- 'croiser'f 
end? f case > 



if ( i mod 2 -= 1 ) and C i 

ti len 
bea in 

wi'iteln? writeln? 
continue ? 
sc rnci 1 1 ro ( of f ) ? 
wri teln( ' 



<> 1 ) 



writeln? 

sc merit ro ( cl r ) ? 
w r 1 teln ? 

SHIP PARAMETERS 



el id ? 

sh ij^w r i te ? 

end? < with > 

iiet (^hipinf i le ) ? 
end? X wriile > 
close ( ship inf i le f lock ) ? 

writeln? writeln? continue? 

end? -C 



par tf ou r ? 

PARTTHREE 



cont ♦ 



) ? 



> 



ROCEDURE PARTFOUR? 

PROCEDURE AIRSETUP? 
bes i 1 1 

3C rnen t ro i cl r > ? sc men t ro ( of f ) ? writeln? 

writeln(' AIRCRAFT ')? 

writeln? 

w r i te In V ' T’ne initial :^aine set-up for the aircraft follows?')? 
wri teln ? 

wri teln( ' Tliere is one CAP (combat air patrol) airborne consisting')? 
writeln( 'of 2 f idh te r/ inte rcept aircraft* They are orbitini^ at')? 
w r i teln C ' 20 f 000 ft.? app ro;<i matels 0 NM ahead of the carrier ')? 
writelnC'All remaining fisihters are onboard the carrier.')? 
wri te In? 

w r i tell I V ' Tiiei'e are tiiree AE!4 (airborne earls warning) aircraft')? 
w r i tell I ( ' dep losed at 13f000 ft.r about 200 MM ahead of the task force.') 
writelnC'All other AE14 aircraft are onboard the carrier.')? 
wri teln ? 

writeinv All aircraft of the same type will carry the same ordnance')? 
writelnC load and will have t^ie same functional parameters. ')? 
wri teln ? 

wr i teln ( ' Ful iowiny is a sample parameter list for each aircraft type.')? 
writeln? 

writeln? writeln? continue? 

ei id ? 



89 



PROCEDURE nIRINFO 



bfcfiiin 

wiLfi airin-File'^ do 
bedxn 

w ri Lein ? 

write (' X-Y coordinate position 
w ri teii I ( ;<pos I 4*lf'f'r spos i 4 i 1 f ' ) ' ) ? 
wriLeln<' nlLitude 

wriLeinC' Cuurse/fteadind 

wriLelriC' Ground speed 

ei id ? *C w i LTi > 

ei id f *C 

PROCEDURE nlTACKURITE? 



: < ' ) ; 

: 'fdit: 6 )f 

l ' f a;zmth 16 ) r 
X ' f velcty X 6) f 



(^IRINFO 



> 



bed in 

wiLii ai I’inFile'^ do 
Lied in 



sc men L ro < cl r ) r 
w n Lelri ( ' 



sernent ro < of f ) r write In? 

ENEMY AIRCRAFT 



' ) ? 



wriLelri? 
w r i L e 1 n < 
w r 1 Lein ? 
w r 1 L e 1 ri ( 
wri Leln< 
w r 1 Lein < 
w I* 1 Lein < 
wri Lein < 
w r 1 Lein ( 
a 1 r i n f o ? 
wri Lein ? 
end ? 



Attack aircraft number 



' r 1 : 2 ) ? 



Number of ai i — to-surface missiles (ASM) 

ASM probability of kill 

Finns envelope (dedrees about nose) 

ASM maximum rande 

Number of bombs 

Bomb probability of kill 



' f asm X6) f 
' f asmpk ♦ 6 J 2 ) ? 

' f asmenv X6) f 
' f asmrnd * 6 ) ? 

^ f bomb 16)? 

' fbombpk: 6 : 2 ) ? 



wri Lein ? 
•C with 



continue ? 

> 

< ATTACKURITE 



> 



PROCEDURE INTCPTURITE? 



bed If I 

wiLh airinfile^ do 
bedin 

sc men L ro ( cl r ) ? sernent ro ( of f ) ? writeln? 

wnLeln( ' F IGHTER/ INTERCEPTOR ' ) ? 

wri Lein ? 

wri Lelm ^ Aircraf L endurance (in minutes) 
w r 1 Leii I ( ' Ii I te rcep L radar detection envelope 
wr i Lein ( ' In tercept radar maximum rande 
wri Lein (' Number of air-to~air missiles (AAM) 
w r i Lein < ' AAM probability of kill 

writein('AAM firind envelope (dedrees about nose) 
w r i Lein (' AAM maximum rande 



ai r inf o ? 
wri Lei 1 1 ? 


wri Lelfi ? 


continue ? 






ei id f 


< with 


> 






end ? 




< 


INTCPTURITE 


> 



f in tnd r ♦ 6 ) f 
f a lenv J 6 ) ? 
fax rnd X 6) ? 
f aam • 6 ) ^ 
f aampk : 6 : 2 ) 
f aamenv X 6) ? 
r aam rnd ? 6 ) ? 
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PROCEDURE nEwURITE? 



UtJii in 

wxLh 31 r XI IT lie'' do 

i rtcn t ro < cl r ) ? 'ic men t ro ( o+'-f ) ? wriLeln? 

wriUfiji(" AIRBORNE EARLY WARNING ')f 

ui r X Ltf li I f 



w r X t e 1 n ( 


'Axrcraft endurance 


(in minutes) 


i ' 7 aewnd r 1 6 ) ? 




w r X te X II ( 


Air searcii radar ma; 


ranxie 


♦ ' f aew rnS ^ 




j X r X nf u 7 










w 1* 1 te 1 1 1 ? 


w 1’ X teln? 


cun t inue ? 






end ? 


*C w X ti 1 


> 






end ? 






ATTACKURITE 


> 


b e d X 1 1 




-C 


PARTFOUR 


> 



re«at* L <3Xi*inTxlo 'ABA*i*airin -file* data' ) f 

vj 1 f 

X i *- • 0 f 

wiixxt? NOT tfut' <airiii-fxle) do 
uwdxi I 

wxtii ax r XI if ' 1 do 

carafe? iff' O’f 

aneiii^ • bei^xn 

X • - X + If 

a t tackwrx te f 
end f 

•Trend * xt al t > 0 

then xf aefrnd = aew 
blien aewwrite 
else xntcf-twrxte T 

end? -C case x-ff / with > 

set (ax r xnf X le > ? 

end? ' -C w^lxie j* 

uluse ( ax r xn-T X 1 e f lock ) ? 

end? -C PARTFOUR > 

PROCEDURE GAHECHGI3ES? 



jC n ici 1 1 ru ( 
uj I* X teln ? 

•-< r X Lein ( 



ir)? sc t'ricnt ro ( of* f ) ? 

wrxteln? wriLeln? wrxtein? 

How do sou wxsii to set up the players'?* 



' ) f 



w r X te il l ? 


w r X teln ? 






w r X te in ( ' 
w r- X te in ? 


1 : 


Use 


the 


def aui t 


w r X te i n ( ' 


2 * 


use 


tile 


def au 1 t 



f'leet/shxp and aircraft data-base * ' ) ? 
fleet and build sour own aircraft data 



w r X c,ein ? 

wrxteln (' 31 Use the default aircraft and build sour own fleet*')? 

w r X teln ? 

wrxteln v' 4 i Build your own fleet and aircraft da ta-base ♦ ' ) ? 
wrxteln? wrxteln? wrxteln? wrxteln? wrxteln? 
wi'xte ( 'Type a number from 1 to 4 i ‘ )? 



) ? 
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rtfdtj ( selec L ion > J 
•jc rnci I L ro < on ) f 

Willie NOT (i:»e lection in do 

be;iii 1 1 

sc n ici I L ro < bel > ? 
w!‘i Lein y 

wi'iLe ('Host be e nomber from 1 to 4 II -- Please try aSainJ ')? 
read ( '^e 1 ec t i on ) 

ei id y 

endf -C GAHECHOICES > 



PROCEDURE SHI F’TRnNSFER ? 



beiJin 

reset < si i ii- inf i le r 'ABA « 1 J shi pinf i le ♦ da ta ' ) ? 

rewrite (shipuaia ABA ♦ 2 t si ii pda ta ♦ da La ') ? 

repea L 

siiipdata"' C- si ii pinf i le"* 5 
put (shxpdata)J 
■Jet ( sh IP inf 1 le ) f 
until eof C siiiPinf 1 le > ? 
close ( ship inf 1 le > lock ) ? 
close (siiipdata flock)? 
ei id ? 



PROCEDURE nlRTRANSPER? 

be Jii I 

reset (ainnfile ?' ABA ♦ 1 t ai r inf 1 1 e ♦ data ') ? 
rewrite (airdata ? ' ABA . 2 J ai I'da La ♦ da ta ' ) ? 
r ePea t 

airdata"" airinfile'"? 

put ( airdata)? 

Jet < air inf lie)? 
until eof { air inf lie)? 
close (air inf lie flock)? 
close (airdata flock)? 
end f 



PROCEDURE PREPACK? 



be Jin 

sc ri Id 1 1 ro ( c 1 r ) ? sc rncn L ro ( of f ) ? 

writein? writeln? write In? 

writelii ('Since sou iiave decided to use the default fleet and attackf')? 
writein ('aou mas wish to repeat the default database review* ')? 



writeln? wr*iteln? 

case Selection of 
' V ' f " u ' ** be Jin 

writeln? 
continue? 
end ? 

" N ' f ' 1 1 ' *, be Jin 

writeln? 



sesnosel ? 



writeln? writeln? 

def aul Lforces ? 



writein? 



writeln? 
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enu f 

lu ? 



urut I L it lue f 



end f 



< 



cese 



> 



L>e:jiri *C STnRTEii > 

delevei (ciiuice)? 

•^eUcheiii C ' ♦ »J2/ Li'ie^a i * code ' ) ? 

It ehuice - 'cuiiiHieUe proiiratii' 

liteti Uediii def dul Lf orces ? alamechai ces r end 

el^e if ciioice - 'allow chanide' 

then be:^iti choice 'no review'? iJamechoi ces ? end 

el'je if choice = 'ube default' 

then beidin choice 'no review'? selection I 
else selection 'O'? 



case 



' 4 
end 



selection of 
« beidin 

if c^ioice O 'tio review' 
setcval ( 'defaul t ' ) ? 
sh i>- transf er ? 
ai r transfer ? 
end ? 
t beiiin 

setcval ('build air')? 
sh 1 ^- 1 rai isf er ? 
end ? 

I bejJin 

setcval ('build fleet')? 
ai I'traiisfer? 
end ? 

I setcval ('build all')? 

< case > 



then prepack? 



ei id « 



< STARTEM 



PRQGRnH CHANGED? 



USES ci^a ins tuff r thesistuff ? 



vnR 

si iipinf 1 ie F sitipdata I file of ship? 
airinfiler airdata * file of aircraft? 
ai rcoiiip ♦ aircraft? 
sliiPCOJtiP • ail IP? 

choice f kind « strinS? 

1 ? a « 0 « « 200 ? 

iiiissciiiiht ; boolean? 

lei IS til I 0**10? 

temp I integer? 



Procedure Redosiiip? forward? 

Procedure Redumiss i 1 es ? forward? 



1 ' ? end 
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fu Cl Cl Cl Cl 



ruLreuu rt* 
roceu»j re 
ruceuu re 
receutj re 
fuceu*-/ re 
P roceuu i*e 
r roceuU re 



RetJuf r lei t>J ? 
Redueneirr^ f 
Chi lainbcp L ? 
Cl)nd<Jew f 
Cou r'dii le tes r 
n 1 L-A*:irith y 
deioci Lies y 



f o rwe rd y 
f o rwe rd y 
f o rwe rd y 
f orwerdf 
f Q rwe rd F 
f a rwe rd y 
to rwe rd ? 



PROCEDURE CHECKVALUE v io? in 



in Lesie i* ) y 



Ueii in 

Leni^- •— r-eedii"iL (ienabh)? 

wiiile ( ( LemH < io> or (temp > hi)) do 
be::iiri 

sc rncri L ro ( be 1 ) F wri belriF 

wribe (' Pleese enter a value bebween 'f1oJ2f' and 'FhiJSF' 
Lenip;- readii I b ( lend th ) F 
eridF -C while > 

ei id F 



PROCEDURE NEWSCREEi’^f 



' ) F 



bed in 

sc PI ici I L ru ( c 1 r ) f sc merit ro ( o-Ff ) f 
wribelnF wribelnF wribelriF 

el id F 



-C^ificlude • do/ bhes is2b • Le;< b> < A compiler instruction to* include Lhis > 

< bexb file when compiling the codefile* > 
< Bedinniitd bext file Thesis2b* > 

PROCEDURE COORDINATESf 



bediii wibii airdaba"' do bedin 
I lewsc reen f 

w r i be li I ( ' The aircrafb''s X-coordinabe position * 'fxposMJ1)f 

if ciiendei b 
biieri besin 

leiisbii I— 4f 

xpos i - read real ( lend bh ) F 
wri beliiF 
end F 

sc rnci 1 b ro < of f ) F wf'ibelriF wri be In f wribeln? 

w I ’ 1 be In (' Tile aircrafb''s Y-coo rdina be position * 'fsposJ4J1)f 

if ciiandexb 
biieii uedin 

ieridth i -= 4? 

spus J -= readreai ( lend th ) F 
w r X be 1 1 1 F 
end F 

end F < wx bh > 

wrxbelriF wribelriF continueF 

end F 
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PROCEDURE «^LT_AZHTHf 

wiLii Uo bedin 

I lewsc ret?! I f 

w I’i te li I < ' The ei rc ref current altitude I '?altl5)? 

if cr I anile it 
tiieu beiiin 

leiiiltii 5- Of 
checkvalue (OfoOOOO)? 
ait r - teifiH f 
end f 

ri icrt t ro < uf f ) f wri tel rif write Inf writelnf ' 

w j*i teln ( ' Tiie aircraft' 's current cou rse/hesdiriil I ' » azmth J 3 ) f 

if ciianaeit 
tiieii bei^iiii 

leiidth 3f 
cijeckvalue <0f309)f 
aziiitii J- teiTiF'f 
end f 

end f <. With > 

wi'itelnf writelnf cuiitinuef 
end f 



PRpCEDURE VELpCITIESf ^ ^ 

ueuiii witti airdata do be^in 

I iew«3C reen f 

w I'i teln <' The aircraft''^5 current dround speed (velocity) I 'fvelctyJ4) 
if cliandei t 
then bediii 

lendtii J -= 4f 
checkvalue (0f2000)f 
velcta teinpf 

ei id f 

ei td f i. With y 

end f 

FROCEDUKE REDOFRIENDf 
bedin 

I'eset (airinfile ?' ♦ 1 J ai r inf l ie ♦ data ') f 
rewrite (airdata ? ' rSSA * 2 J a i rda ta • da ba ' ) f 
i*-Of aJ-Of 

renea t 

airdata"' *= a i r irif i le"' f 
case ai i*da ta"' • if f of 

enemy ♦ put (airdata) f 



Trend * case ai rda ta"' . acf I'nd 


of 






intcpt ; 


bed in 


i J = i T 1 f 


chndin tcp b f 


end f 


aew • 


bed in 


a J = a f 1 f 


chndaew f 


end f 


end? -C 


case > 








endf -C case 

Jet ( airiiifile)? 


> 
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fu fL Cl 



until eof ( 1 T* II it' i le ) J 

clo^fcf ( i r II It i Ifc* > lock) 5 
clo’je ( i*«Ja >lock>J 

enijf < REDOFRIEND > 



PROCEDURE CHNGINTCPT; 

ruceuuft? Pci pb two? 
r(jCG?uure Pc< r b Li i pee J 
ruceuure P<jrbfuupf 

PROCEDURE IiWTCPTPrtRAf 



fa rwe pd 5 
f o pwe PQ f 
f arwe pd f 

-C INTCPTPARA paptone > 



Uei^in With airdata'^ do bed in 

ac mat I b I'u < of f ) ? writeln? wpitelnf wpiteln? 

w r 1 belfi (' Endu ranee of aircraft (in minutes) I 'fintndrtZ) 

if ciiandeib 
biien bed 11 1 

i end ti I J - 3 f 
checkvalue ( 0 ^ 255)5 
iribndr I- temp? 
end f 



ei id f 


< witii 


> 




w p 1 bel 1 1 f 


w ri telnf 


continue f 


pa rttwo f 



ei id f 



PROCEDURE PARTTU05 



< INTCPTPARA parttwo > 



bedin with airdata'^ do bedin 
I lew^c reen f 

wr 1 bein< ' Trie number of aiP’-to-air missiles (AAM) 
if ci'ianseib 
then bedin 

lend til C - 2f 
Cl leck value (0^31)? 
aein C- beinpJ 
end f 

sc rnen b ro ( of f ) ? write Inf writelnf write Inf 

wpi telii ( ' i^nM ppobabilitd of kill 
if criende i t 
biien bedin 

lendtii J- 4 f 

aaiiipk I- read rea 1 ( 1 end bh > f 
w ri belli f 



end f 




et id f 


< wi til 


> 


writelnf 

.11 


writelnf 


continue f 



pa rt three f 



J ' f aam i 2 ) f 



t ' f aampk J 4 5 2 ) 
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i 



rROCEDURE PnRTTHREEf 



INTCPTPARA 



P3 rtth ree 



> 



3 i birf'** do 



< 

ueslin 



ue:jin w i th 

newsc reel i ? 

wi'i Lelii( ' Reuar detection envelope (desirees about nose) 
if LMi3inieit 
tiieii besiiri 

lend til of 
clieckvalue (0foE9)f 
aieiiv J = tewipf 
ei id f 

sc men L ro ( uf f ) f writelnf wribelnf writelnf 

w r 1 Lein (' lute rcept radar iiiaMimutn I'ande 
if chandeiL 
Liien bediri 

leiidth I- of 
checkvalue (0f2oa)f 
airnd •- Leinpf 
ei id f 

ei id f -C with > 

writelnf writelnf u-.-nj/lnuef 

*C INTCPTFi^RA 



r aienv : 3 ) f 



f ai rnd J 3 ) f 



pa V tf ou r f 

partthree 



•ROCEDURE FnRTFQURf 



do 



< 

bed in 



INTCPTPARA 



pa rtf ou r 



wpi teln f 



writelnf 



bediii witli airdata 
I lew^c r*eef I f 

wri teln ( ' i^AM firind envelope (dedrees about nose) 
if chande it 
then bed in 

leiidth l~ 3f 
checkvalue C0?3o9)f 
aienv •- teiiipf 
ei id f 

sc rnen t ro ( off > f w r i teln f 

writeln(^AAM )na;Jiiiiuni rande 
if chande 1 t 
ti>en bedin 

leiidthi 3f 
ciieckvalue (0f235)f 
aaiiirna I- temp f 
end f 

emjf < witii > 

writelnf writelnf 

< 



' f aamenv J 3 ) f 



' f aamrnd 1 3 ) f 



ei lu f 

b e a i n 

i lewsc reen f 
w 1 * i tell I C 
w r 1 tell I V 
w r i teln f 
case selection of 
' ' T ' 'j ' * bed 1 1 1 

coo rdina tes f 



continue f 

INTCPTPARA 



pa rtf ou r 



CHNGINTCPT 



Do sou wish to chande ans of f idhter/interceptor ' ) f 
aircraft nijiiiber pa rameters? ^ ) f 

sesnosei f writelnf 



al t_ai:mth f 



veloci ties I 
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( ci 1 1'datci > f 



inLcptpapc# f 
ei itJ r 

'H'f'n' * pijt (ciirrjata)? 

end? "C cese > 

end? -C CHNGINTCPT > 

ROCEDUKE CHiNGnEU? 

PROCEDURE n£UP.«=jRi^? 

ueiiin wiUj airdat^^'' du beiiiii 

i»u‘ ri ici I U i-a ( af f ) ? writein? writein? wntein? 

w ri Leli I V " Endu ranee of aircraft (in tninutes) 
if ehan^hiei t 
tijen ueain 

t- 3? 

checkvelue (0»250>? 
aewndr Leinf^? 
end ? 

wi'itein? writein? contiJiue? 

I lew^e reen ? 

w r i tell I ( ' fri rbo ri le search radar inaxiniuin ransle 
if ehaniieit 
then beiJin 

lei til 1= o? 
uheckvalije C0>250)? 
aewrnrd ♦- teiniP'? 
ei id ? 

end? f wi til y 

writein? writein? continije? 

end? < fiEUPARA > 

bed J.I I 

new^c reen ? 



w r 1 tell 1 ( 


Du aou wii:>ii 


to clianae ana 


of earla warnind 


w r i tell 1 ( 


aircraft number 


pa raineters? ' ) ? 


w r X Lein ? 


aesi loael ? 


wr i tain ? 




c»jse lie lection of 






' Y ' » ' a ' : 


beam f 


CHNGAEU 


> 




cuu rdx nates ? 


ai t.azm th ? 


veioci ties ? 




aewi='a ra ? 


Put (ai rdata) 


? 




end ? 






' N ' ? ^ ri " 1 


put ( ai rdata ) ? 






end? -C 


case > 






ei id ? 


< 


CHNGAEU 


> 



: ' f aewndr : 3 ) ? 



• ' f aewrnd ♦ 3 ) ? 
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ROCEDURE MOREnIRIHFO? 



Ufcfii in 

witii cii I'dii do 
be^i 1 1 

I lewsc refc*n f ‘^crncn tpo (on)? 

leniith 4? 

wi-ite (' Efiter Lhe X coordinate POSITION 

i ~ read 1 ( lei'iil til ) ? 
write In? writeln? write In? 

write ( ' Enter the Y coordinate POSITION 

'aHO‘j» I- read i‘ea I ( 1 ena th ) ? 
writeln? writeln? writeln? 

lei iij til ♦ — 5 ? 

write (' Enter the ALTITUDE 

ciieckvalue (Of 30000)? 
alt J- tenip? 

writeli'i? writeln? writeln? 

leriiJtii ♦- 3? 

write (' Enter the HEADING/COURSE 

ciieck value (0f3G9)? 
a*:iritJi t— tein»^ ? 

writeln? wi'iteln? writeln? 

leiiiattii 4? 

write (' Enter the VELOCITY 

checkvalue (0f2000)? 
velc ta * - temp ? 

writeln? continue? 

ei id ? 

ei id ? 

ROCEDURE NA3ATTACK? 



bed in 

With aii'data'" do 
bed in 

newacreen? acT*ncntro (on)? 

lendtii 2? 

wi'ite (' Enter the nuiiiper oF ASM''s 
ciieckvalue (Of 31)? 
a am I- temp? 

writeln? writeln? writeln? 

write (' Enter tiie number of bombs 

checkvalue (Of 31)? 
bomb « — Lemp ? 

writeln? writeln? writeln? continue 

end ? f w 1 th > 

end ? 
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PROCEDURE I'^iOREnTTnCKJ 



Ofcflill I 

wiLli do 

be 

d^mt'nv 3i rcoinp ♦ dsmenv f 

t -= 31 rcomR ♦ 3sm rn:^ r 
asinh-k i-= 31 rcomp ♦ 3Sinpk ? 
bumupk d 1 I'comp ♦ bombpk 5 

mo r't'di i‘i n+'o f iiid^ad t Lack f 

fc‘i jiJ f -C Ml bh y 

t=!\ id f 

PROCEDURE REDCENEHY? 



F'focedurw Pdrtuwot 
Proofc»duT*fc» Pd r b ti I ree ? 



f o rwa rd f 
TO rwa rd ? 



PROCEDURE ENEMYPARriJ 



< 

bfc»3in 



ENEMYPARA 



par Lone 



beiiiii Ml til airdaba"‘ do 
riew^aC reeri ? 

w r 1 be in < ' Nojiiue T* of a i r- Lo-su rf ace iiiisiaiies <ASM) 
i f ciian^niei b 
bnen bedm 

leriiitb := 2f 
ciieckvalue <0^31 
asm t- benipT 
end f 

•^c rTicn L ro < off > f wribelnJ wriLelrif wT'ibeln? 

ui r 1 be iri C ' Ti le ASM Pi’obabiiits of kill 
if Cf lai isei b 
biieri be^in 

1 ei iS ti I t -= 4 f 

asiiipk 1= r'ead real ( ierrJ b?i ) ? 
w r 1 be in f 
end f 

end f f w 1 til > 

Mi‘ibeiiif Mr‘ibein? continue? parttwo? 

end? < 



PROCEDURE PARTTUOf 



INEMYPARA 

ENEMYPARA 



pa rtone 
part two 



beiiiri wibli airdata'^ do beSin 
1 lewsc reen > 

w r i Lein V ' ASM firms enveiope (decrees about nose) 
if ehaiiseib 
biien beiiin 

leiiiitn I— 3f 
eheckvaiue (0f33?)? 
asnienv I temp ? 
ei id f 

sc rncn b ro ( of f ) ? wribein» write in? write in? 

w T*i bein ( ' ASM inaNiinum raniJe 



> 

: '^asm:C)f 



: ' f asmpk : 4 : 2 ) f 



> 

> 

' f asmenv 13) r 



' f asmrnS *3) f 
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if Clldlliieit 
ui leu 

ieiii^th I- 3? 
u'l »eckv<diue < 0 > 25 u)> 
— LeifiP f 



d Is III rnn 
end? 

tiudr < 

writiilnJ wriLelrif 

end f 

^GCEDURE PnRTTHREE? 



continue? part three? 

< EI^^EMYPARA parttwo 



dirdeta" do 



ENEhYPARA part three 



beilin 



> 

> 



beiiill WJ.th 

new^ac reen? 

uritein<'The riumber of oombs 
if cl>anaei t 
then bei:iiri 

ieiij:ith 2? 

checkvalue <0>3D? 
bomb ♦ teinp ? 

4 1. 1 • ui'itein? writein? 

:prj^l\V<”T“.rPrubabU^ 

if chan::ie it 

tlien beiiin 

ienii th t ^ . v . 

bombi'k. : - readreal ( leridtn) » 
writein? 
end ? 

end? -C with > 

IT- Lj I* t Lein? continuef 

writelnf ^ EHEMYPARA partthree > 

end ? 



' r bomb : 2 ) ? 



f bombpk I 4 



betiin 
reset 
rew rite 

i 0? 

new^aC reen ? 
w r i tein < ' 
w r i te In ( ' 
w r'i tein < ' 
wr i tein ? 
repea t 

d i rda ta • - 
case a i i*da ta 



< REDOENEMY 

(dinrifUe ABA . 1 : ai r inf i le • data ' > f 

< all-data , ' ABA . 2 1 ai rda ta . da td >’ 



me attack aircraft are arranged in si 
three aircraft. You will be presented 
dircraft in each formation. 
writein? wi'itein? 



j formations of' 
wi th each ' > > 



f i‘ei lu 
enemy 



put 



di r ii if i le^ 
I iff of 
( d i rda ta ) ? 



besiii 1 ‘ 

if i = i 
thei I 
eise 

write ^ 
w r i teiri ( 
wi‘i tein ? 



+ 1 ! 



dirconip ♦— airdata 
I lewsc reen ? 

Do sou Wish to deiete 



aircraft number 
sesnose i ? 



f 1 : 



attack 
) ? 



writein? 



uase 



aeiecti on of 
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f 




'N' 1 



te*fiU> i. 

id f 

flHJf < 

del < cii PiM+^i le> ? 

•jiiLil eot' ( rii if i le ) ? 

r ji-ec# L 

i lew^c reen ? 
uriLeliiv' Du ^o<j 

wrxLeliif ^:^esnos&If 

if ^electiofi in C'Y'> y 
ijiiLii selecLiun in C'N'>' 
ciu^»e Veil I'll if ile >lock)? 
close (3irdebe flock)? 



beii in 

scrncnL ru ( of f ) 5 write In? 
write i' Do sou wisi) bo 
w ri bein < ' 1 t ' ' 3 parameters?' 
writeln? sesnosel? 

case selection of 



'Y' 1 



'N' 1 



end ? 
end ? 
case > 



bei^in 

enemspara ? 
coordinates ? 
veloci bi es ? 
wn beln ? 
continue ? 
end ? 
be^in 

writeln? 
continue? 
end ? 
case > 



writeln? writeln? 
change ans of ' ) ? 

> ? 

w r i beln ? 



al t-asmth ? 

writeln? 

put (ai rda ba ) i 



writeln? 

put ( ai rdata ) ? 



to add mure attack aircraft 
writeln? 

3 then beizlin mo reattack? 
n' 3? 



REDOENEMY 



bo the database?')? 
put (ai rdata)? end? 



End of be;< t file TIiesis2b< 
PRCCEDURE FLEET3UILD? 



uedii I 

reset ( sii ip inf i le f ' . 1 J shiPinf i le ♦data')? 

rewrite (si'iipdata f ' • 2 ♦ shipda ta ♦ data ' ) ? 

i iewsc reen ? 

writeln <' Do sou wisli to add or delete ships or ')? 
writeln (' chanae ans of the ships'' pa rame be rs? ' ) ? 
writeln? writeln? sesnosel? 

case selection of 

' Y ' f ' s I redosi lip ? 

' N f ' it ' \ repea t 

shipdata"* shipinfile^? 
put V si 1 1 pda ba ) ? 

Set C ship inf ile ) ? 
until eof vshipinf 1 le) ? 
end? -C case > 

close < ship II if i 1 e f 1 ock ) ? 



102 



ciu^e fluck>? 

lafi mJ f 



ROCcDURE nlRCRFTBUILD? 



uei^in 

I iewt*c [*eei 1 1 

Ul l*i tell I ( 

w r i tt?ln J 
w ri tfcfin < ' 
w r j. te In r 
w r i Le ill ( 

‘-J r X Lfc* ii I ? 
w r L L;.- 
ui r i Le li 1 r 
w I* 1 ( ' 



Do you uiisJi Uo chan^e/ylter l')i 

1 ♦ Friendly ^aircraft parainetery? ')? 

2 I Enemy aircraft parameters'^ 

o • Both enemy and friendly aircraft pa rainete rs? 
write 1 i ‘i y 

Type a number f roni 1 to 3 I ' ) y 



read ( select ion ) ? 
sc ri icn t ro ( on ) y 

wiiile NOT (selection in C ' 1 ' y ' 2' t ' 3 ' 1) do 
bey in 

scrncnt ro ( bel ) y 
w r 1 teln y 

un'itein (' Must be a number from 1 to 3 ! ')y 

write (' — Please try a^i^ain — J ')y 

read (selection)? 
end? < while > 

Case selection of 
'1' ; redofriend? 

' 2 ' t T'edoeneiny ? 

'3' t beSiri redofriend? redcenemy? end? 

end? -C case > 

ei id ? 



' ) ? 



ROCEDURE MOREINFO? 



bey in 

wit 2 ) shipu'ata'^ do 
beSiri 

newscreen? scrncntro (on)? 

len^itii 4 ? 

write (' Enter the X coordinate Position J ')? 

;ipos readreai ( ieny til ) ? 

write In? writeln? wi'iteln? 

write (' Enter tile Y coordinate position I ')? 

ypos r*ead real ( lens til > ? 

writeln? writeln? writeln? 

1 eny ti i J — 3 ? 

write (' Enter the PIN : ')? 

checKvalue ( 0 ? 309 )? 
pirn *- temp? 

writeln? writeln? writeln? 

lenytii I- 2 ? 

write (' Enter the 30 A I ' ) ? 

ciieckvalue ( 0 >G 0 )? 



103 




\ 






i 
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i 




♦- LeniPf 

uiriLein? wriLelri# uiriLeln? conLinuef 

newsc reen > scrncnLro (on)? 

It-fiiiLli 3f 



uM'iLe (' Enter the 

clieck value (0f25v)? 
Sbf'rii:i LemH? 

wi'itein? writeln? 

write (' Enter the 

checkvaiue (Of 235) > 
fcnihi t- teniKf 
wpitelrif wi'itelnf 

wi'ite (' Enter the 

cheekvalue (Of 233) f 
1 rsaw * - tem^^ ? 
write in f write inf 

wi'ite (' Enter the 

cheekvaiue (Of 233)? 
arbain teim-? 

write in? wnteifi? 

end? -C with 

ei id ? 

ROCEDURE MORESHIPS? 



surface search radar ransie 
writelrif 

fire control radar ransle 
w r 1 1 e 1 n ? 

number of Loni^ Ranine SAM 



w r 1 tein ? 

number of Short Ran^e SAM 



write In? continue? 



ueiiiiii 

wi ti l sl iipdata*^ do 
beii 11 1 

irmi^k shiHCoroi^ • 1 riTiPk 

s rtiiHk si I income ♦ s rtiipk 

Irmm shipconip ♦ 1 rmin 

IrtiiaK sh 1 pcomp ♦ 1 rmax 

s nil in ♦- si lipcomp ♦ 3 rinxn 
srma;; siiipcoiiip . srma;< 

mill ts I ~ 0 ? 
bi 11 ts ♦ ~ 0 ? 

1 lewsc reen ? 



w r 1 tein ( ' 
wr 1 tein ? 


Please 


choose a ship 


tape 1 


w r 1 te in ( ' 
writein? 


1 


1 Destroser 


' ) ? 


wri tein( ' 
w r 1 tein ? 


n 

wr i tein ? 


: Cruiser 


' ) ? 


write ( ' 


Tape a 


number? 1 or 


2 : ' ) ? 



read (selection)? 
sc n ici 1 1 ru < on ) ? 

wiiile not (Selection in C'l'f'2'J) do 
beslin 

scrncnt rov bei > ? writein? 

write (' Must be an available ciioice? 1 
read (selection)? 
end? < wfiile > 

case selection of 

'1' t class dest? 



o r 
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fu L\ 



crsr ? 
cjse 



> 



' ^ ♦ cl 3 Sb> ♦ — 

< 

mo reinf u f 

end? *C with 

^^nd f 

PROCEDURE REDOSHIP? 

1‘uoedure Pert two? 

* rocedure PerLLin'ee? 
r’T‘(joedui*e PertPaui’? 

PROCEDURE SHIPPi^RA? 



f o pwa rd ? 
f o I'wa rd ? 
f o rwa rd f 



SHIPPARA 



j^artone 



bed in witii dhi^'daca'^ do bed in 

newsc reen ? 

w r 1 ueln < ' Tfje «»hip'’'s X-coordinate position 
if cfjaiideit 
Liieii bedin 

lend til *= 4? 

xpos J- read real ( lendth ) ? 
w i‘i teln f 
ei id f 

scTM icn t ro( of f > 5 writeln? writeln? writeln? 

wriLelnC'Hie shipp'd Y-coo rdina te position 
if ciiandeit 
tiieii bedin 

lendtii 4? 

epos readreal ( lendth ) ? 

wr i teln f 
end f 

end? < with > 

wriLeln? wi'iteln? 

end f 



' f xpos t 4 : 1 ) ? 



' ? ypos J 4 ; 1 ) ? 



continue? part two? 

< SHIPPARA partone 



PROCEDURE PARTTWO? 



bedin 



witii siiipdata" 



< 

do 



3HIPPARA 

bedin 



pa r ttuo 



newsc reen ? 

wriLein<'The ship''s PIM (position of intended movement) 
if criaiideit 
tiien beain 

lendtii l~ 3? 
cfieckvalue (0>309)? 

PI III t- temp? 
end ? 

sc men t I'u < of f > ? writeln? write In? write In? 

w I* 1 te ii I ( ' The siiip^'^s actual SOA (speed of advance) I 

if cilarideit 
tiieij bedin 

lendtii 2? 
ciieckvalue (0?30)? 
sua 5- tenip? 
ei id f 



' f piml 3 ) ? 



:) f 
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ernJ ? < with > 

write in? writeln? continue? part three? 



end? 


< 


SHIPPi^RA 


Pa rttwo 


> 


PROCEDURE PnRTTHREE? 


< 


SHIPPARA 


partthree 


> 


bed in witii siiipdata'^ 


do 


bedin 







newsc reen ? 

wn telnC 'Surface search rauar iTiaximuiTi ran^e 
if cfiaiiseit 



trien ues^iri 

length i -= 3? 
ciieckvaiue (0»253>? 
ssrrisi J- temp? 
ei iiJ ? 

sc men t ro ( uf f ) ? write In? writeln? write In? 

w r 1 telri < ' F i re control radar ina;<iinuin ran^e 
if chanseit 
tiieii beilin 

leiijJth 3? 
checkvalue (0»2S3)? 
fcrni={ temp? 

end ? 

end? < witii > 

writeln? writeln? continue? 
end? < SHIPPARA 

PROCEDURE PARTFOUR ? < SHIPPARA 



partf our ? 
partthree > 

partfour > 



bed in with shipdata'^ do bed in 

I lewsc reen ? 

w 1 “ i te In < ' Nutiibe r of lond rande surf ace- to-ai r missiles 
if chansie it 
then bed in 



leiidth t- 3 ? 
ciieckvaiue ( 0 ^ 253 )? 

1 rsam t= temp? 
end? 

sc men t ro< of f ) ? writeln? writeln? writeln? 

wri tell i( ' Nuiiibet' of short rande su rf ace- to-a i r missiles 
chanseit 
ti'ien bed in 

leiidth 3 ? 
ciieckvaiue ( 0 >» 253 >? 
srsam ♦- temp? 
end ? 

and? < witii > 

wt'iteln? writeiri? continue? 

SHIFPARA Partfour > 

REDOSHIP > 

1 ♦ - V ? 

repes t 

i J - i f i ? 



oedii I 



' » ss rnd 13)? 



' f f ernd? 3) ? 



' f 1 rsam : 3 ) ? 



' f s rsam i 3 ) ? 
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^ii'i iHUci ♦- '3i» ip inf X 1 5 

bMXpeump ♦- siixpxnf 1 1 e"^ ? 
if X - 1 btien reuoiiiissi les ? 

if lnisschn^a 

then wiUj shipdc*b<i'^ do 
be!;i ii I 



1 iMnpk 




shipcoinp • 1 rmpk 


? 


s rmpk 


= 


shipcoiiip ♦ s rmpk 


? 


1 rmin 




shipcoinp • 1 rmin 


? 


1 rma;< 




siiipcump ♦ 1 rma;< 


? 


s nnii 1 




shipcomp ♦ srmin 


? 


s rtnax 


- 


shipcomp # s rma;{ 


? 


end ? 




< wi th/if 





^hipda of 

Lv t kind 'carrier'? 

des t : kind J- ' des t ro^^er ' ? 
crsr • kind *•- 'cruiser'? 
ei id ? 

(lew^creen? 

if si'i i pda ba^ * cl ass <> cv 
tlien 
ueain 

write (' Do sou want to delete ship number ')? 

w r X tein ( i J 2 y ' a ' ^ k md y ' ? ' ) ? 
wi itein? sesnosel? 

case selection of 
' f ' n ' ♦ beain 

sc rncn t ro ( of f ) ? writeln? writeln? writeln? 

write (' Do sou wish to chansie ')? 

writelnv 'ans of the pa raineters? ' ) ? 
writeln? sesnosel ? 

case selection of 

'Y'?'s' ** bedin shippara? put (shipdata)? 

'N'?'n' : put (shipdata)? 

end? -C case > 

end ? 

■C case > 



ei id ? 
end 
else 



oeain 

w r i te In < ' 
w r 1 teln ( 
w r i teln ? 
cuse selection of 

! b^tilin shippara? 
wn teln ? 

continue ? 
end r 



Do sou wisii to change ans of the parameters 
for Si IIP number a 'rkind?'? ')? 

sesnose 1 ? 



put ( shipda ta ) ? 
writeln? 
pu t ( shiPda ta ) ? 



end ? 



end? *C case > 

end? < if > 

set (siiipirif lie) ? 
until eof < siiip ii if i le ) ? 
repes t 



end 
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nt?u»‘jc reen f 

wriLelnC' Do you wish Lu add (iiore ships Lo the database? ')t 

wfiteln? yesnosel? 

1+' selection in then bei^in moreships? put (shipdata)? end? 

until selection in 

end? < REDOSHIP > 



PROCEDURE REDOMISSILES? 



Pfucedui-e F'arttwu? 
Frucedui e Pefttiiree? 



f orwa pd ? 
f o rward ? 



PROCEDURE hlSSPFjRn? < MISSPARA partone > 

UeiiiM with siiipcomp do bej^in 
newsc reen ? 

w r 1 teln < ' Lunid raniie SnM probabili ty of kill 
It* ciianiieit 
ti)en beiiin 

len-ith := 4? 

1 rmpk readreal ( lenj^th ) f 

wi'i teln ? 
end f 

^crricn tru(off ) ? write In? wpiteln? wpiteln? 
w I* 1 teln < ' Sho r* t ranae SAH probablity of kill 
if chansdeit 
tiien bei^in 

lerid th I- 4 ? 

srnipk read Pea 1 ( lendth ) ? 

w I* 1 teln ? 



ei id ? 








end? < 


with > 






w I* 1 teln ? 


writeln? 


continue ? 


par t two ? 


ei id ? 


< 


MISSPARA 


partone > 


PROCEDURE PARTTUO? 


•c 


MI 3 SPARA 


parttwo > 



' r lPfTipk:4:2) ? 



' f s pfTipk : 4 J 2 ) ? 



beilin with siiiPComp do be^in 
I lewsc r’een ? 

wi'i teln < ' Siiurt raniie missile minimum tarslet distance : 'fSpminJ3>? 

if cliariiieit 
tiieti beiiin 

leniith 3? 

checkvelue < 0 ? 2Gu ) ? 
srmin temp? 

end ? 

^c i*nct 1 1 ro ( of f ) ? writeln? wPiteln? writeln? 

w I* 1 teln < ' Shu rt ranae tnissile maKitnuin tarSet distance ♦ ' ? s rma:< J o ) ? 

if cJianaeit 
tihefi beain 

lenati'i 3? 

checkvc»lue (Of 233)? 
si‘uia;< I- temp? 
end ? 
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t?l lU f 

w r i Lein ? 
end T 



< witij > 
w ri teln f 

-C 



PROCEDURE PARTTHREE; -C 



continue f 
MISSPARA 

filSSPARA 



p<3 rtth ree f 
parttuo > 

part three > 



uedxn With siiipcomp do be^in 
I lew^sc reen r 

w r i Lein < ^ Lurij^ rerij^e nfiissiie miniiiiutri target distance 
1+' cJieriiiexL 
Liien Lie^in 

ieniiiLh 5 - 3 5 
checkvaiue (0^203)5 
1 (*min i- temp 5 
ei id r 

sc ri icn 1 1 * 0 < uff ) 5 wriLeinf wriLein? writein? 

w r X Le in < ' LuriM ran^ie missiie maximum tarsiet distance 
if cijarii:lexL 
Lhen ue^Jin 



lei rath t -= 3 5 
checkvaiue (0>253) 
Irma;; *= Lemp5 
end 5 

end 5 -C uibh > 

wriLeln5 urxtexii5 



end 5 



< 



continue 5 
hISSPARA 



partthree 



> 



; ' f l rmin J 3 ) 5 



; ' 9 1 rma;< *3)5 



uedxn 
I lewsc 
w r X Le 
w r 1 Le 
w I* X be 
w I* X Le 
w r X be 
ca^e 
' Y ' 
'N' 
end 5 
end 5 



reen f 
lii< ' 
in( ' 
in 5 
ln< ' 
in 5 



C REDOMISSILES > 

Do sou wish to chariSe ana of the ships'' 
su rf ace- bo-a X r missile parameters? 



' ) 5 



) 5 



TJiese parameters will be eouivalent for all ships*') 5 
write In 5 sesnosei 5 

selection of 

f'u' t beSin tiiisspara5 misschnS 1= true5 end 5 

f'n' I iiiisscimS faise5 
< case > 

< REDOMISSILES > 



beiiiii < 

aeteiiain ( ' . d2/ Li les i So • code ' 
de Leva 1 < chu ice) 5 

xf Clio ice - 'build all' 

Liien beiiin fleeLbuild5 ai 

else if ciiuice - 'build fleet' 

Liien fleetbuxld 
ex'je if choice - 'build air' 
Liien a 1 rc rf Lbu 1 id 5 
end. < CHANGEM 



CHANGEM 
) 5 



> 



rc rf tbui Id 5 



> 



end 
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i W >-* -f > 

PROGRAH nBnGnME f 



< compiler option for Gecreasinsl memory usade« 



USES 

py raf r real inodes r b ranscend f aPP ies tuf f > thesis tuff ? 

C vijsiiiii . iJ2/ tiles is3 • i iL»> makef o rms ? ^ raf stuff ? bea r inds ? 



CONST 

iiicr - 
re t r 1 1 nr 
re t r tiid 
re t r ta 1 
re t rtve 
II ibuis t 
II ibda 1 1 
tul - 0 
i ll t tuX 
1 ‘ecuv - 
tmiJef au 



t ^ 



i2o; 

90 f 

20000? 

400? 

200 ? 

200 ? 



it - 160 ? 



< Tile interval that the attack updates it's headinsi* > 

< Time of retreat for the attack* > 

< Retreat headinsl for tiie attack* > 

< Retreat altitude for the attack* > 

< Retreat velocity for the attack* > 

< Distance from carrier to descend for attack* > 

< Inbound altitude for attack* > 

< Tolerance for bombinsi position comparisons* > 

< Tolerance number of hits a ship can take ♦ > 

< Radial distance around carrier for aircraft recovery*> 



OrtR 



si II pda ta f si ipou tf lie 
a i rda ta > a i rou t f i 1 e 
put rone F pntrtwo 
siiipbaseF shipne>;i 



ai ruase f 
a tkbase f 
cn tbase F 
cvK F cvy 



ai rne;-!t 
a tknex t 
Cl I ti ie>; t 
i‘eal F 



: file of 
: file of 
si lipri t r ? 
si iipn t r ? 
ai rpnt r ? 
ai rpntr F 
cntpn t r F 



ship? 
ai rc raf t ? 



ci lo ice F kind F insii I stririi^? 
f rcnum F i F a F len I 0«*2aa? 
s top F s tep ti iru i boolean? 

iiKFuyFScaleF look f time f end time f tins tep 



integer T 



p iaye rs 


F f f‘f ip 1 ay f enep 1 ay f newcen t e r I 


set 


of 0* *511? 


PROCEDURE 


3H0UFLEET 


F 








forward? 


PROCEDURE 


3HaU»S|TTnCK 


? 








f o rwa rd r 


PROCEDURE 


SHIFSThTUS 


F 








f orwa rd ? 


PROCEDURE 


INTSTATUS 


F 








f o rwa rd ? 


PROCEDURE 

r nuacDUnc. 




i 

F 








£orwa rd i 
f Q rwa rd f 


PROCEDURE 


n IRDELETE 


( 


Uiisun 1 


ai rpntr? 












base 


; a 1 rpntr 


) ? 


f o rwa rd ? 


PROCEDURE 


3HIPDELETE 


c 


tiiisufi ; 


shipn t r F 












t^r^iR base 


1 shipntr 


) F 


f o rwa rd ? 



Co include /proiifile'S 



/tiiesisSb* te::t> 
< 
-C 



compiler instruction to include this 
text file wiien compiling the codefiie* 



> 

> 



no 



Beai I iiiinsi Le«t file Thesis3b 



> 



SEGMENT PROCEDURE SHOWFORMS; 



ueiiin 

ii r'ef i;i 
d vdt i ; 
ms id • - 
uiove tu 
insii : -- 
move tu 
msS * - 
iriove to 
msii 

move to 
msS *- 
move to 
ifiss I - 
iriove to 
move to 
inove to 
move to 
insS 1 = 
move to 
msa t- 
move to 
moveto 
move'to 
move to 
move to 

MISS 

moveto 

reed ( 
e 1 1 1 J ? 



mode (bu280rl)f 
on f misfonns? sirformsf 

'Presented below ere the fiSores that ^5 

<0fl90>? orritwrite ( 3 f mssCl 3 r 1 enSth ( msS ) f 0 f 

'will be used in the srepnic displass* 'r 
(0fl30>f onitwrite (3>mssC13 > lensthCmsS ) 

^ Hie eotoel position of the onit shown 'f 
(0rl6C)f onitwrite ( 3 r msSC 1 3 f 1 enSth (msS ) f 0 f 

'will be trie opper left point of fislure* 
(OfioO)r onitwnte ( 3 r mssCl 3 r lenSth ( insS ) f 0 ^ 

SHIPS :^IRCRfiFT 'f 

(0fl20)? onitwnte ( 3 miisSC 1 3 r 1 ensth ( msS ) r 0 r 

FIGHTER AEU 

(OfllO)f onitwpite ( 3> mssC 1 3 f 1 enSth ( msS ) f 0 f 

(o9 fiOO)r drewimeSe ( shipf o rm r 2 ^ 0 f 0 y 8 f 6 ) ? 

Clo2fl00>f drawimeSe (intform t 2 ^ 0 f 0 > 10 f 6 ) f 
v225yl00)f drewiineSe (aewform r 2 f 0 f 0 f 10 r 6 ) ? 

RADAR CONTACTS ' ? 

(0f70>? onitwrite ( 3 f msSC 1 3 > lenSth ( msS ) > 

' AEW FIRE CNTRL AIR INTCPT SHIP SRCH '5 
<0f o0)f onitwrite ( 3 f msaCl 3 f length ( msd ) 

<14 r40/? drawimaide (eewrdr r2f0f0f5ro)r 

(70 fA0)r drawiinasle (fcrdr 

Clo4f40)? drawiinaSe (airdr 

<238r40)? d 1 ‘awiinaide (ssrdr 

'press SPACE BAR to continue'? 

<40f3>? unitwnte ( 3 r mssCl 3 r len^ th < insid ) ^ 

»elec tion ) r 

< SHOUFORMS > 



f2f0>0f5f5) f 
r2f0f0f3f5) ? 
r2r0f0f 5f 5) f 



12) T 
12) f 
12) f 
12) f 
12) f 
12) f 

dota t 
do tat 
dotat 

Of 12) f 

fOf 12) f 



Of 12) f 



(59 fl00)f 
(152f 100) f 
(225f 100) f 



SEGMENT PROCEDURE POSITRANSFER ? 
besi 1 1 

fltbastf t - nilf 
siiipneitt sr»i phase f 
f i*fip las l~ C 3 f 
while shipnejct -O- nil do 
beS 1 1 1 

I lew C f 1 tf lex t ) f 

f 1 Lneirt . .'<POs I- sihipne;< t"* . xpos ? 
f 1 tne;< t'^ • spos J - shipnex t'^ . spos f 

f 1 tnejj t'^ • r lom shipf’iej< t • num ? 

frnplas I =• frnpias f Csi iipneM t'^ . nom 3 f 
f i tnex t'^ ♦ wha t boat? 

f 1 Lnei< t'^ ♦ 1 ink. fltbase? 

f 1 Lbase I— fltne;<tf 
srripiieK t. **- shipne;; t'" « 1 ink. ? 
endf -C wfiile > 

eirrieut I- airbase? 



m 



i 



nxl do 



wiiilo oiriieKL O 
bo^in 

if < < €#i rne:< * ;<h»os 
tiien ueiiiii 



cvx ) 



( ai rnext'^ . 'jpos 



new ( f 1 tnew b ) f 
f 1 tneK • ;<POS 

f 1 •ePO'b 

f 1 trie;< b'^ . nuin 



ai rnext'^ * kpos f 
a i rne;< • epos ? 
ai rne?<t'^ . num J 
frnplae I- frnplae f Ca i pnex •num 3 ? 
if ai rriex b'^ • acf rnd = aew 

then f 1 tnext'" • what earle 

else f 1 bnext'" • what I- fisht? 
f 1 bnex b'^ • 1 ink J- fltbase? 
flbbase J- flbnextr 
end? < if > 
a i rnext'^ • 1 ink ? 

< while > 



do 



cn tnext'" 
cnbnext" 
cntnex b" 



• XPOS f 

* epos 9 
. num f 



ai rne;t b 
end y 

cnbriexb t- cnbbase? 
while critnext <> nil 
besin 

I lew < f 1 bnext ) y 
f 1 bnext'^ • xpos J- 
f 1 bne;< t'^ • epos 1 = 
f 1 bne;< b"* * num I- 
friiplae fi'nplae + Ccn bnex b'^ * num J ? 
case cn bnext'' . who of 

as rot I * f 1 bnexb'^ ♦ what 1= aewcnb? 

ssrch t f 1 bnext'^ . whab sscnt y 

ai t f 1 bnex b'^ . what t= aicnb ? 

fcon I f 1 bnexb'^ • what J= fccnb y 

end y 
t 1 bi lex b 
f 1 buase 
cn bnex b 
erid y 

enebase J - nil? 
abknexb abkbase? 
enep iae t - CJy 
while atkiiext nil 
beein 

new (enenexb)? 

ei lenext^ * ;;pos atki lex b'' . xpos ? 
enenex b*^ . epos C - a tknext'^ ♦ epos ? 
eneriext'^ • nuin •- a bkriex . num y 
eneplae I- eneplae + Ca bknex t'' . numJ i 
ei iei lex b'^ * wi la b I- pine? 
enenex b"^ 4 1 ink I- enebase? 



< case - 

'•link flbbase? 

J — f 1 briex b ? 

cnbnex b"^ * 1 ink ? 



do 



ei leoase 
a bknex b 

sffid ? 



ei lenext ? 
a bknex b'" . 1 ink ? 



erid ? 



> eve ) ) 
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ScGnENT PROCEDURE WHf^FNEXT? 



ifisii ' U(>-sc«jle / D(ounscale / RCecenLer 

inuvtjtu (0>191)y uni tw PI Le ( 3 f insaC 1 3 y 1 enath ( iTiS^ ) > 0 > 1 2 > 5 

•JuLaL <Ofll)y rjotat (0yl3)r 

movelu (0>12)5 liiieto (scales 12)? 

dutat ( 'iiCidle f 1 1 ) ? duiat (scalefl3>? inoverel (2^3)? 

t- ' - = > 10 NM " ? uni tw r i te ( 3 > insaC 1 3 > 1 enath ( mssl )> 0 > 12 ) ? 

ms si ' C(oriLinue Fiine * '? 

inuveLu (0>8)? uni twri te < 3 f insdC 1 3 » 1 endth ( mssl ) > 0 > 12 ) ? 

s L r ( Lime > ) ? 

inuveto (220 f 8)? uni Luj pi Le ( 3 > ms*JCl 3 > 1 en^th ( ms^ ) > 0 > 1 2 ) ? 

raf i;;on ? pead ( se lect iun ) ? 

uiiiile nuL < select ion in C^C'>'c'»'U'f'u'>'D'>'d'>^R'f'p'3) do 
L>edin 

read (selection)? 



sc rnci I L i‘o ( bei ) 
ei id ? 

case selection of 
'U' f 'u' 

' D ' j ' d ' 

‘ R ' 9 ' r' 



scale := scale div 2? 
scale ;= scale t 2? 



besl in scaleup? 

beSin scaledown? 

beslin 

sc pncrit PC ( cl p ) ? scpncntPoC of f ) ? texLon? 

wpiLeln? wpiteln? wpiteln? wpiLeln? 

wriLeln(' Choose a unit numbep fpom the last display 
wpiteln(' on which sou wish to pecentep the display# 
w PI Lein? w PI Lein? 

if aLkSpaf 

eneplay 
f pnp lay ? 

DISPLnYED numbep 



end ? 
end ? 



) i 



I = readint ( len > ? 
OP (nucsnt > 



311)) do 



Ljien playeps J- 
else playeps ♦- 
wpiLe (' Must be a 
‘ac pncn L po ( on ) ? 
len 3? nuceriL 

wiiile ((nucenL < 0> 

L»eilin 

sc pncrit PO ( be 1 ) ? w pi Lein? 

wpiLe (' Must be a DISPLAYED numbep 
nucenL i= peadinL < len ) ? 
end? < while > 

iiewcenLep I- Cnucentj? 
wiiile not (newcentep 
Liei^iri 

sc rncn L po ( be 1 ) ? 
w PI Le ( ' lius L be 
nucenL readinL C len ) ? 
while ((nucenL 0) or 
beam 

sc pncn t PO ( bel ) ? wpiLeln? 

wpite ( ' Must be a DISPLAYED numbep 
nucent readin L ( len ) ? 

end? < wiiile > 

newcenLep 1- CnucentJ? 
end? < while > 

recei i Le p ? 



playeps) do 



w p 1 1 e 1 n ? 
DISPLAYED 



numbep 



( nucen L 



511)) do 
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end f 

end? < C3*3e > 

end f 

SEGiiENT PROCEDURE ACr TMOUESf 
Va p 

i idd f vei ^ al td ♦ ii iLeslery 



bed in 

write (' Enter desired headind of aircraft t ')? 
len t- 3f hdu readin t C ien ) ? write In? write In? 

while <5idu • 339) do 
L«edi I « 

wrileifiv' Headina must be between 000 and 339 ♦ ')? writeln? 

wi ite (' Enter de^»i red iteadind t ' ) ? 
iiud C- reedin t C 1 ei I > ? writeln? writeln? 
end? -C while > 

e 1 i*ne;t t'^ * e*:ui th hdd? 

write <' Enter desired velocity of aircraft t ')? 
len t=- 4 ? vel readxn t < 1 en ) ? writeln? writeln? 

wiiile (vel 2000) do 
bedin 

sc rnci 1 1 ro C bel ) ? 

writeln(' Oelocity must be between 0 and 2000* ")? writeln? 

write (' Enter desired velocity I ')? 

vel I- readij'i t C len ) ? writeln? writeln? 
etid? < while > 

ai rne;< t^ ♦ velc ty I- vel? 

write (' Enter desi red altitude of aircraft (MUST be < 23000) t ') 
ien 3? al td t- readin t ( len ) ? writeln? writeln? 
wiiile (altd ^ 23000) do 
bedin 

sc rricri t ro ( bel ) ? 

writelnC^ nltitude MUST be between 0 and 25000* ')? writeln 

write (' Enter desired altitude t ')? 

a ltd readin t C 1 en ) ? writeln? writeln? 

end? t while > 

ai rne«t'^ * a 1 1 t- altd? 
end ? 

oEGs^ENT PROCEDURE MQOEAC C whatac i frndtype? 

,, dowhat t strinS )? 

Va r 

d e y F • j i s F a t 1 1 1 1 e S e r ? 
dowhatnum I 1**10? 

bey in 

airne;;t I- airbase? a i- 1? 

if tJowiiat - 'launch' 
tiien dowi-iati luni 1 
else if dowjiat - 'move' 
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L^)en dowfiatriuin « == 2 
dowiiatnuin t- o? 

n icn t r*o ( ci r ) ? sCT-ncn b ro < of f ) f wnbeln? 

wr»ile I'fiext <> nil do 

beiiin 

scrncntroCclr ) ? sc men b ro ( of f ) ? wribelnf 

if j - 1 bijen beslin 
case wnaiac of 

inbcpb t kind J= 'fiiihter'? 

aew I kind ♦= ''early warning aircraft'? 

end? “C case > 

case dowhatnuiii uf 

1 * if ( ( ai rne« b"' • ai b - 0 ) and ( a i rnext'^ ♦ acf rnd - uhatac) 

and ( ai rnext'^ 4 XHOS ^ cv;<) and ( a i rneKt'^ ♦ ypos - evs ) ) 
bben bej:iiri 

if whatac = aew 

biien ai rnext'^ ♦ aewndr J = 240 
else besin 

ai rnexb'^ 4 in tndr 120 ? 
ai rnext'^ 4 aam 6 ? 

end ? 

writeln? writeln? 

wribeln(' Launching a '?kind?'?')? 
writeln? writeln? 
acf tinoves ? 

J := a + 1? 
end ? 

2?3 I if ( ( ai rneK t'^ 4 al b <> 0) and ( a i rnext'^ 4 acf rnd = whatac) ) 
then beSin 

ded decrees ( cv;< ? cvy ? a i rne»<t '' 4 xpos ? ai rnext'" 4 ypos ) ? 
dis ;= distance ( cv;< ? cvy ? ai rnex t '' 4 ;<pos ? a i rnext'^ 4 ypos ) ? 
dis dis ^ 10 ? 

write (' Do sou wish bo '?dowhat?' the '?kind)? 
wribeln('? number ' ? ai rnext'^ 4 num J 2 ? ' located ')? 
wribe (' '?desJ3?' decrees? '?disI3>? 



writelnC' NM from carrier? ')? 
if dowhat -= 'move' 
then bed in 

writeln? writeln? 

write (' Current headind is J ')? 

wribeln(ai rnext'^ 4 a::n»th J5) ? writeln? 
write (' Current velocity is : ')? 

wribelnCai rnext'^ .velctyJS)? writeln? 
write (' Current altitude is I ')? 

write ( ai rnext '' 4 al t J 5 ) ? 

if ( ai rnext'^ 4 al t = 1 ) 
then bed in 

write ( ' ' ) ? 

wr 1 teln< ' Ai rcraf t is beind RECOVERED') 



writeln? 

end 

else bedin writeln? writeln? 

end ? 

writeln? yesiiosel? writeln? writeln? 



end ? 
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if selfefctiun in 





tf)en if dowhat = ^ move ' 

then bed in acftmoves? 


J : = a 




else bedin 

ai rneKt'^ .al t 


:= If 




ai rnext'^ • velcts 


:== 350 f 




if ded < 180 

then airnext'^ 


♦ aziTith 




else airnext'^ 


♦ azmth 




o ♦ = J + If 

end? < if ses > 


end 5 -C 


endf < if case 2f3 > 

case > 




end? < 


if j 1 > 




a i rne;< t t - 


ai ri lexf" ♦ link 5 




end 5 f 


while > 





id f 



f 1 » and 



= de:^ + 180 
^ de^ - 180 



EQftSNT PROCEDURE SHIPMOUE35 
Cr'jfSHd I in Lei3t* I* f 



ueHii I 

write (' Enter desired Plii (course) I ')f 

ien 35 crs •= readin t ( ien > 5 writeln? writelnJ 

while (crs > 339) do 

ueidii t 

SCI ! ici 1 1 ro ( be! ) 5 

writeln(' Course must be between 000 and 359* ')5 
w r i te li 1 5 f 

write (' Enter desired PIM ♦ ')5 

crs ♦=” reedifi t ( len) 5 writeln? writeln? 
end? -C while > 

Si I ipneK t'^ • iiri * ■= crs 5 

write (' Enter desired speed of advance ** ')f 

ien I- 2f spd 5- readin t ( len ) 5 wribelnJ wnteln? 

uiiiie (spu > 30) do 
bed i n 

sc rncn t ro ( be! ) 5 

writein(' Speed must be between 0 and 50.')? 
w r 1 teln ; 

wr-ite (' Enter desired speed ♦ ')5 

spd I ~ readi II t ( ien ) 5 writeln5 writelnf 

end? *C wiiile > 

SI lipiieK t'^ • sua SPd? 
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3EGHENT PROCEDURE MOVESHIP (.Jowhcit 



sLririi:i) f 



UAR 

Ueii y UlS F O 
I IH nil 
nsuci 

duuiha It luifi 



in teae r ? 
0 • • 339 f 

0 ♦ . 30 f 

1 ♦ *10? 



beiilin 

'jiixpne>;t I- siiii*base? j 15 

if uuwridi - 'sinsile'' 

Liien uowhdtnuin I- 1 
else uuwi ti iUiTi ♦= 2 5 
wiiile 'j>i ii»-nt?;<i <> nxl do 
be:^in 

lao rnci I L ro ( c 1 r ) 5 scrncnt ro( of f ) 5 write In 5 

if J = 1 Lhien be^in 
Cd'je dowhdtnuiTi of 
i I bedin 



shi»-ne;<t^ ♦ class of 

t kind t - ' C3 r r 1 e r ' 5 
: kind 'destroyer'' 5 

J kind t- 'cruiser'5 
-C case > 

ded rees ( cvx f cvy fshipnext^* kpos f shipnex t'' . spos ) 5 
distance ( cvx r cvs f shipnext'^ * xpos r shipnext^ ♦ spos ) 
(' Do sou Wish to move the ' fkindf ' ? number ') 
( shipnext'^ . num i 2 ) 5 
if siiipnext^ . class = cv 
tiien writeln('?') 
beSin 

writelnC' located ')5 

write (' '?de^:3>' desrees^ '>disi3)5 

wi'iteln(' NM from carrier? ')5 
end 5 < if > 



case 
cv 

dest 
c rs r 
end f 
desl I - 
d i s J - 
write 
w r i te 



else 



wri telri5 
w r i t e 1 n ( 
wr i teln 5 
w I* i teln ( 
wri telri5 



wr i teln 5 

Cur rent 



PIM 



' f shipnext*^ ♦ pinri ) 5 



Current SOi^ t ' > shipnext"* . soa ) 5 
yesfiosel 5 writeln5 writeln5 
if ^election in C'Y"f'y''3 

then beSin shiPinoves5 j J + 15 end 5 
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end 5 



beS in 

w r i teln 5 
w 1*1 teln ( ' 
w r i teln 5 
writeinC ' 
w I* 1 teln 5 
w V i teln ( ' 
siiipmuvGS 5 



write In 5 

Alteririii tiie course / speed of the fleet 
w I' i teln 5 

Current Plh ** ' » shipnext'^ • p im ) 5 

Current SCA I ' » shipnext'" . soa ) 5 



npim *- shipnex t'^ • p im 5 
nsua ^i'lipnex t'^ . soa 5 

siiipiiext t= sltipiiex . 1 ink 5 



' ) 5 
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repec* t 

h i pne,*< b ♦ p im 1= npiin? 
siixpne;<t'' ♦ soa •- nsoa? 
shipnexb shipne;<t'' ♦ 1 ink ? 
ufibil ‘ 5 hipne;;t = nil? 
en»J f 

end? < ca^e > 

tfiifjf “C if a — 1 y 

if iJowiiab <> "fleet' then shipnext I- siiipnext"' ♦ link? 
end? -C uiiile > 

lifrid f 



SEGHENT PROCEDURE tinKECiNTC 



wha t rdr 
iJeadf l«#sl 

t< f y 

nmbl r nmb2 



rarJd rtape ? 
boolean ? 
real r 

in beiie r > ? 



UnR 

newcnbc I boolean? 

ij; F xe f cx f * inteiler? 



be din 

cnbnext cntbase? 

newcnbc brue? 

i;< t- round C;;) ? iy 1 = round <y) 
while cntnexb O ml do 
bedin 

c;; round ( on tnex b"' ♦ xpos > ? 
if ((cx - ix) and (c^ - ia)) 
Uien if cntnex t^ . dead 

bhen newcnbc I- false 
else if deadflaS 
bhen bedin 



cs 



round < cn tnext'" • spos ) ? 



jiewcntc I- false? 
cn bnex b"' • who 5= whatrdr? 
cn bnext"^ . rdnin 5- riinb2? 
cn bnext'^ ♦ dead I- deadflad? 
end 

else if ord(whatrdr) > ord ( cntnext"' • who ) 
bhen bedin 

newcnbc I- false? 
cn bnext'^ ♦ who 1= whatrdr? 
cn tnext"' • rdnm := nmb2? 
end 

else newcnbc I- false? 
cnbiiexb C- cn bnex b'" ♦ 1 ii ik ? 

ei lu ? 



if newcnbc 
bhen bed in 

new (cnbnexi)? 
Cl I bi lexb^ « xpos 
cn bi lex b'" • spos 
Cl I bnex . nuin 
cn bne;; b^ * who 



s ? 

frcnum r nmbl? 
wha t rd r ? 
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cn tneMt"' ♦ rdrim t- rmib2f 
cn LneK • dead deadflad? 

cn ti . 1 ink cntba^^e? 

cntuc<se ♦- cntnextf 
end f 

end f 

3£Gi-i£NT PROCEDURE SHIPRi^DARCNTC > 

UAR 

uistFur^FiUfrt J integer? 
a;< T ae ? rh t rea 1 r 

run ♦ 0 ♦ ♦ 250 ? 

ueiixn 

randomise f 

SMi^'ne;<b ^iixpbasef 

while ^iupnext <> nil do 
wx tri 'ji'ixpneKb^ do 
beii in 

aLknexb I- atkbasef 

<ac merit ro < If ) ? write ( ' -> ')> 

wiiile alkne;<t <> nil do 
bedifi 

ax ♦- atknext'^ ♦ xpos f ae atknext'^ ♦ apus f 

mil ♦— a tknex ♦ riotn F 

j'f I C - i. . . ‘ » a X t ) F 

dial ♦- dxatance<xpos Fapos FaxF aa) ^ 10 f 

b rd deai‘eea < a;< f aa f ;<POS f apos ) f 

it ( a tkriex b'*' ♦ aiiinth ~ atknex t'' ♦ asmenv div 2)f 

rt I - V a tknext'' ♦ a;:in th + atknext'' ♦ asmenv dxv 2)f 
if Clt < 0) then it := It + 360 f 

if <rb > 360) then rt := rt - 360 f 

if <(dist <- srmax) and <dist . srinxn) 

and Csraain > 0 ) and <di‘st <= rh) ) 

then bedin 

arsain arsam - If 
if random <- tnaxinb M srtnpk 

then iTiakecntc ( f con f t rue f a;< f aa f miif num ) 

else makeente < f con f f a 1 se f ax f aa f run f num ) f 

end 

else if < (dist <= Irmax) and (dist > Irmin) 
and (Irsam > 0) and (dist <= rh ) ) 

tJien bed in 

Irsam *= Irsam - If 
if random -■> maxxnt K 1 rmpk 

then makeente ( f con f t rue f ax f aa Fnm f num) 
else makeente ( f con f false f ax f aa f nm f num ) f 

end 

else if (<dist ferns) and (dist <= rh)) 
then inakeente < f con f false f ax f aa f run f num ) 
else if ((dist ssrns) and (dist C= rh ) ) 

then makeente ( ss rch f false f ax f aa f nm f num ) 
if ((dist <- tol) and ( a tknex . bomo > 0)) 
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then beiiiin 

d tki iej{ ♦ bomb dtl<.ne^^t'^ ♦ bomb - 1? 

if random <= max in b ¥. atknext'^ ♦ bombi^k 
bj'ien biixts J= bhits + 1? 

end 

el^»e if ((dis»t <- aikneKt'^ . asmrn^) and ( atknext'^ . asm > 0) 
and (br^ >= It) and (brsi <= rt)) 
then be^in 

dtknext'^ ♦ asm a tknext'^ ♦ asm - 1? 
if random <= maxint 4c a tknext'' * asmpk 
then mbits J- mbits + If 

end f 

if ( ( bi I i t s + mb its) > i t to 1 ) 
tiien sunk true? 
atknext I- a tkriex t'^ ♦ 1 ink ? 
end? < ubile atknext > 

shipnext link? 

end? < ui tb > 

end? 

ScGiiENT PROCEDURE AIRADr^RCNTC ? 

UnR 

ij 1 s t r b f 1 1 r r r t r f 1 tm f r tm ♦ inteSer? 
ax r as f rn J rea 1 ? 
i im ; 0 . . 203 ? 

beslxn 

rai iduiiix ^e ? 
axrnext I- airbase? 

surncfitro<cl r) ? scrncnt ro ( on ) ? texton? 

wiixle axrnext <> nil do 
be^xn 

if a X rnext*^ . a i t > 0 

tl>en witfi airnext'^ do 
beam 

atknext I- atkbase? 

sc men t r-o ( If ) ? uirxte ('=> ')? 

while atknext nil do 
besxn 

ax atknext'" . xpos ? as t= atknext'" ♦ spos ? 
fim a tknext'" ♦ num ? 

I'b J- 1.23 4C ( so r t < atknext'" ♦ al t ) + sort<alt))? 
dxst dxs tance ( xpos f spos f ax > as ) 4c 10? 



br^^ 


: = 


decrees 


(xpos 9 spos fax 9 as ) 


9 




1 1 1‘ 


: - 


(a;:mtb - 


aienv 


div 


2) 


9 






r t r 


: - 


(airmtb + 


axenv 


div 


2) 


9 






if 


(1 tr 


0 ) 


then 


1 1 r : 


- 


1 tr 


+ 


360? 


if 


( r t r 


> 360) 


then 


rt r t 


- 


rt r 


- 


360 9 


1 tm 


; - 


(azmtb - 


aamenv 


QX V 


2) 


? 






r tm 


; - 


(aiimth + 


aamenv 


dx V 


2) 


? 






if 


( I tm 


0 ) 


then 


I t ITI « 


= 


i tm 


f 


360 ? 


i f 


( r till 


360) 


then 


r t ift 1 


= 


r tm 


- 


360 ? 


case acf rnd of 
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: if <(dist •>;= aewrn^) and (dist <= rh)) 

then makecntc ( as rch > f alse > a:< ? ay > nm ?num ) > 
inicpt I if ((dist <- aainrni^) and (aam > 0) 

and (br^ >- ltm> and (br^ <> rtm) 
and (dist > rh)) 
tiien besiin 

aain aam - 1? 
if random <= inaj<int M aampk 
then makecntc ( ai f true f a;< > ay > nmf num ) 
else makecntc ( ai f f al se f a:< f ay ^ nm y num ) ? 

end 

else if ((dist <= aims) and (dist <= rh) ) 
and ( b rS > - 1 1 r ) and ( b rs <= r t r ) 
then makecntc ( a i f f alse > aj< » ay r nm > num ) ? 
> 



a 1 
ei id f 



end? < case 

atknext ** = atkne;<t 
end? < while 

end? < with 

rnext J- a i rnext'^ ♦ 1 ink ? 

< while airnext 



link? 

atkne;<t 
ai rnext 



end ? 



ocGhEhl PROCEDURE SHOUSTfiTUS? 



ueS ii I 

repea t 

sc iMicn t ro ( cl r ) ? 
wn teln ( 
w r 1 te li I ( 
w ri teln ? 
w r 1 teln ( 
w r i teln ( 
wr i teln ( 
w r 1 teln ( 
w r 1 teln ? 
w I* i teln ( 
w r i teln ? 
w I - 1 te li I ( 
w r 1 teln? 
w I- i teln ( 
w r i teln ( 
w r i teln ( 
wr 1 teln ( 
w r 1 teln ( 
read ( 



sc rncnt ro ( of f ) ? writeln? 

Please select an option accordins 
farces report you wish to peruse* 



Ships • 

Fishter/in tercptor * 
Early warninS aircraft# 
Radar contacts# 



to which status 
' ) ? 

' ) ? 



) ? 



) ? 
) ? 



a : Quit ')? 

writeln? 

NOTE COORDINATE POSITIONS are SCALED : 1 = 10 NM#')? 

wri teln ? 

After your selection you will be presented with ')? 
specifics and status inf o rma tion concerning your ')? 

selection# You will then be returned to this menu ')? 
where you may make another selection or repeat a')r 
previous selection or auit# ')? 
e 1 ec 1 1 on > ? 



while not (selection in C'l' 
bey in 

sc merit ro ( bel ) ? writeln? 

writeln(' You must select 



4' f 'Q' f 'a' 1) do 



w I' 1 te 
read ( 



( ' 

►election) ? 



Please 

writeln? 



one 

try 



of the 
asain J 



available options# 
^ ) ? 



) ? 



end? while 

Case selection of 
1 ' • ships ta tus ? 
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I 



/ 




'2' * irit^> ta tus ? 

'3' I aewsbcjLus? 

'4' « r*J > 

end? < case > 

until (selection in C'Q' 
end? 

SEGMENT PROCEDURE NEXTEVENTS? 



beiiin 

scTTicn t ro < c 
wri teln ( ' 
w PI teln ? 

W Pi teln < ' 
w pi teln ( ' 
wpi teln < 
w PI tel n ( ^ 
w p i t e 1 n < ' 
wf*iteln( ' 
u» Pi te In < ' 
wpi teln < ' 
w p i tell I ? 
u»pi teln < 

WPI teln < 

WPI teln ? 
w Pi teln ( " 
WPI tell I ? 
w Pi tein < 
wPi teln < ' 
WPI teln ( ' 
wpi teln V ' 
i*ead (selee 
end ? 



Ir)? sc merit po < off ) ? write In? 

Pleese choose your desired course of action : 



' ) ? 



D 

R 



wri teln ? 
After your 
about youT' 
menu where 
selec b ion 
t ion ) ? 



Move a f iShter/intercpto r ♦ ')? 
Launch a f iShber/intercptor ♦ ')? 
Recover a f ishter/ in be rcptor ♦ ')? 
Move an AEU aircraft* ')? 
Launch an AEU aircraft* 

Recover an AEU aircraft* ')? 
Move/manuever an individual ship*')? 
Alter the PIM / SQA of the fleet*')? 



Review the display of forces* 
Review the status of forces* 



' ) ? 
' ) ? 



Quit 



) ? 



selection you will be asked for specifics ')? 
selections then you will be returned to this 
you may make another selections repeat a ')? 
for another ai rcraf t/ship or ouit* ')? 



SEGMENT PROCEDURE NEXTSTEP? 



besiin 



scrncribPO<cl r ) ? sc rnent ro < of f ) ? texton? 

write (' Current GAME TIME (TOTAL simulated runnins TIME) is : ')? 

w Pi teln ( time i3s ' minutes* ')? wri teln? writeln? 



if eneplay - CS 
tiien beyiii 

stop true? 

wpiteln(' The Same will now stop because the attack 
end 

else beSin 



wPiteln? w Pi teln? 

wpitelnv' Do you wish to stop the pPoSram at this 

WPiteln? yesnosel ? wpi teln? writeln? 

if (sei action in C'Y'?'y'3) 
then stop true 

else 
beam 



is dead 



time^ 



' ) ? 



> ; 



sc iTicn t po ( of f ) ? 



WPiteln? writeln? 
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j r 1 Le 
Ji'i tein 
jpi leiii 
4 ri lei II 
j(‘i teln 
j i‘ i Le 
L fc>n : - 
Lt* Luist 
Uien 
beii 



(' NOTE :: Gctms WILL STOP after ')? 
(endtime : 3 f ' minutes.'); 
f ui r* 1 b e 1 n ; 

<' Enber desired 
f writeln; 

( ' TIME STEP < in 
2 f tinstep t = 

ep- > 60 



time step for the ne;<t displas 
writeln; 
minutes ) t ' ) ; 
readint ( len ) ; 



) ; 



sc rncnt ro < on ) ; 
writeln; writeln; 



1 n 

writeln; writeln; 

writeln(' Confirm eour entre of : 

writeln; eesnosei; writeln; 

if selection in C'N'p'n'l 
then beslin 

wr*i te ( ' 
tms tep J- 
wr i te 1 n ; 
end ; 



T ime step ( in 
readint ( len ) ; 
writeln; 



f tms tep 13 f 
writeln ; 



minutes) 



minutes * ' ) ; 



end ; 



I id ; 



SEGMENT PROCEDURE FLTUPDATE; 



bean I 

shiprie;<t t- shi phase; 
wiiile shipnext O nil do 
Li Oil in 

with sliiprie;<t'' do Setriew:<e ( tms tep f Pim f soa f ;<pos f spos ) ; 
if sJ iipne;< t^ . cl ass = cv 
tlien L>eSiii 



cvK 2- shipneK . j<POs F 
CVS 2- shipnext” . epos ; 
end ; 



siiipnext 2 = shi pnext'^ ♦ 1 ink ; 
end; < while > 



airnext 2=^ aiT'base; 
wiiile airnext O nil dO 
bean I 

with airiiext'^ do 
if alt 0 
tiien beSin 

if acfrnd - aew 



then 



else 



if alt 
ti leri 



if aewndr tms tep 

then airdelete ( a i rnext f a i rbase ) 
else aewndr 2= aewndr - tmstep 
if intndr tmstep 

then airdelete ( ai rnext f ai rbase ) 
else intndr 2= intndr - tmstep; 

^ 1 

if distance < cvx f eve f xpos f spos ) <= recov 
tiien beSin 
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;<pus 
^POS 

c»ll 
end 

el^:ie ejmth 

aelnewxy < tins lep ? ejni 
end 

else bedxn 

;;pos l-= cv;<? 

SPOS ♦= CVS? 
eiiu? < With / if > 

airne;<L J- ex me;; t'^ ♦ 1 ink ? 
end? < while > 

end ? 

SEGMENT PROCEDURE hTKUPDATE? 



; - cv;< ? 

: - CVS ? 

I - 0 ? 

0 ? 

:= deslrees ( ;;pos f spus f cvx f cvs ) ? 
Lit F velc ts F ;<POs f spos ) ? 



VnR 

itdsi : 
e;< F es 



in te^er ? 
* ree 1 F 



bed in 

etkne;<t •- elkbese? 
wltiie etknext <> nil do 
bed in 

with abknext'' do 
etkne<xt eLknext 



end ? 
e Lkj ie;< t 
if time 
then 



detnew;<s 
' » 1 ink ? 

> 



< tmstep F azifith F velcts f xpos f spos ) ? 



else 



< while 
etkbese? 

>-= re tr Lime 

while eiknext <> nil do 
bed in 

e Lknex b'' ♦ezmth t= retpLhdd? 
e Lki le;; b'^ ♦ vel c ts i= retrbvel? 
e bkne;<t'' ♦ el t rebrtelt? 

aLkne;<b atknext^ ♦ 1 irik ? 
end 

if (Lime div look > 0) 

Liien bedin 

look I- look 4* incr? 
wihile Jbkne;<t <^- nil do 
bedin 

e;< 5 - etknext'' . ;<POS F as J- 

if (distance < a;< f as f cvj< fcvs ) 
then atkne;<t'' ♦ al b ♦- inbdal b? 
a tkne;<b'' ♦ azmth dedrees ( ax f as fcv;< f cvs ) ? 

atkne.xb I- a bkne;< • 1 ink ? 
end? < while > 

end ? 



atkne;<t'' ♦ spos ? 
4 c 10 ) •=:> 200 



id ? 



Bedinnind te;<b file Thesisob* 
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PROCEDURE INITIALIZE? 



beii in 

reset ( shipda ta? ' nBA . 2 I snxHdata ♦ data ' ) ? 

:= false? time 0? look I- incr? 

f rcrnjiB 0 ? 
srii>»base nxl? 
wiixle not euf (sJiiPdata) do 
beii in 

f rcnuiii • -= frcnum + 1? 
new ( si I ipne;< t ) ? 
si»ipne;<t'' I- shipdata'^? 
sii ipiiejx t'^ • nuiu frcnom? 

if sii ipne>; t^ . class - cv 
then beiiiin 

cvj< shipnext'' * ;«POs ? 

CVS I- siiipnext'^ ♦ ypos ? 
end ? 

siJipnext'' ♦ 1 ink * - shipbase? 
siiiHuase 1= sliipiiext? 
iiet (siiipdata)? 
end ? 

close < shi Pda ta > lock ) ? 
end ? 

PROCEDURE DOAIRLISTS? 
besiin 

reset (airdata f ' ABA ♦ 2 t ai rda ta • data ' ) ? 
airbase nil? atkbase 1= nil? i 5= 0? 

wiiiie not eof (airdata) do 
beSin 

case ai rda ta'^ ♦ if f of 
eiieiiis • beam 

1 5 = i + 1 ? 

I lew ( a tki ie;<t ? enefiis ) ? 
atknext'^ airdata'^? 
a tkne;<t'' ♦ num I- i? 
a tknex t'^ * 1 ink I- atkbase? 
atkbase ♦- atknext? 
end ? 

Trend I beSin 

f i*cnuiTi I - f rcnum + 1 ? 
case ai rdata^ . acf rnd of 
intcpt I be!;iin 

new ( a 1 rne;<t ? f rend r intcp t ) ? 
airnext'^ *- airdata^? 
a 1 rnex t"' . num t= f rcnom ? 
ai rne;: t'' . 1 ink I- airbase? 
airbase airne^L? 
end ? 

aew I besiin 

i iew < a 1 rne;< t F f rend F aew ) ? 
airnext'^ I- airdata'"? 
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end f 
end f 

end? "C cese 

iie L ( e 1 rue te > ? 

end? < wliile 

close ( ei rde te f lock ) ? 

end f 



31 rne;<t'' 
ei rne;< 
ai rbase 
end f 

< case 

< f rnd 

> 



num 5= frcnum? 
link t= airbase? 
= airnext? 



> 

> 



> 



< DOAIRLISTS > 



ROCEDURE SHQUFLEET 



oeSin 

drafi;nnode (bw280fl)? 
fltnext J- fltbase? 
wIj lie f 1 ti le;-: t <> ni 1 do 
beS in 

n;< round (fltnext'^ 

ne round (fltnext'^ 

move to ( fix y I is)? 
case t' 1 tnext^ . wha t of 



fillport? 



• XPOS ) ? 
. SPOS > ? 



boat 
earls 
f isht 
aewcnt 
a lent 
f cen t 
ssen t 
end ? 



d raoimaSe ( shipf o rm f 2f 0 f 0 f Bf 6 ) ? 
d rawima^e ( aewf o rm f2f0f0f 10f6) ? 
d rawima^e ( in tf orm f2f0f0fl0f6)? 
drawima«ie (aewrdr f2f0f0>5f3)? 
drawimaSe (airdr y2f0r0f5f5)? 
drawl maSe (ferdr f2f0f0f5f5>? 
drawimaSe (ssrdr f2f0f0f3y3)? 
case > 



do ta t ( nx f ns ) ? 
move to < I IX f i isf 3 ) ? 
fltnext t- fltnext" 
end ? 



str ( fltnext^ .num f mss) ? 
uni twri te<3>mssCl J f lensth(mss) f Of 12) ? 
♦ 1 ink ? 



ei id ? 



ROCEDURE SHOUATTACK ? 

beS ii I 

sraf ixmode <bw280fl)? fillport? 

enenext I- enebase? 

Willie eneriext rril do 
beSin 

nx round ( enenex t'^ . xpos ) ? 
fis I - round ( enenex t^ ♦ spos ) ? 

(Tioveto (nxfiis)? 
if enenex t'^ . wi la t - Pine 

tiien drawiinaSe ( in tf o rin f 2 f 0 ? 0 f 10 ? 6 ) 
else drawiinade (ssrdr f2f0f0f5»5)? 
do tat (nxfns)? str ( enenext^ . num f insS ) ? 

move to ( nx f ns+8 ) ? un i tw ri te < 3 f mssC 1 1 f lend th ( msd ) f 0 f 12 ) 

enenext enenex f . 1 ink ? 

end ? 
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isil llj T 



PROCEDURE AIRDELETE ? 

UnR 

last I airpntr*F 
ueain 

if thi^un - base 

tiieu base thi sun'' * 1 ink 

else beam 

last 5- base? 

while last'' ♦link <> thisun do 
last ♦- last'', link? 
last'' .link i -= tiiisun'' ♦ 1 ink ? 
end F 

en»J F 

PROCEDURE SHIPDELETEf 
UAR 

last * shiHiitr'F 
be^Jiri 

if thisun -= base 

then base 5- thi sun'' . 1 Ink 
else besin 

last ♦- base? 

Willie last'', link <> thisun do 
last J - last'', link? 
last"", link thisun'' . 1 ink ? 

end ? 

end ? 

PROCEDURE GETKILL3 ? 

UnR 

axFasFCi^Fca I integer? 
bei:i in 

LTitiiext ♦- cntbase? 
while cntnext <> r»ii do 
beain 

atknext *- atkbase? 
if cn tnex t'' . dead 
then beSiii 

ex round ( cn tnext'' ♦ ;{POS ) ? 
cs r- round ( cn tnex t^ ♦ spos > ? 
wiiiie atknext .> nil do 
be Sin 

ax round ( a tknext'' . xpos ) ? 

as round ( a tknext'' . spos ) ? 

if C(cx = ax) and (cs = as)) 

tijen airdelete ( atknext f atkbase ) ? 
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I 




I 







citknext 



link r 



ciLknext i = 
end r 

end? -C if dead > 

criLfiext cfitnext"^ * link? 
end? < while cntnext > 

'siii^-fiext C- shinbase? 
wiiile siii>^iiext <> nil do 
beiiiri 

if sriipi lext^ . ‘junk t)ien shipde le te ( shipnext f shipbase ) ? 

<iiiipnext 5- shipnext^ • 1 ink ? 
end? < while shipnext > 

end ? 

ROCEDURE DISFLAGAhE? 

beaxn 

resident wriebne:<t> 
tYiar'k (pnbrtwci)? 
posi transfer? 
scale 1? 
atkj^raf false? 

if fltbase <> nil 

then be^iii nucent X= f 1 bbase^ ♦nijm? recenter? end? 
repea b 

showfleet ? 
wt la bn ext ? 

until selection in t'C'f'c'lr 
if eneplas - C3 
then bei^in 

bextoii? scrncntro < cl r ) ? sc rncnt ro < of f ) ? writeln? writeln? 

write (' Tlie entire attack has been killed? the Same will ')? 
wri teln< 'hal t shortly* ')? 
wi-iteln? writeln? continue? 
ei id 

else beSin 

scale J- 1? 
atkSraf I- tr*ue ? 

texton? scrncnt ro (cl r ) ? sc men t ro ( of f > ? writeln? writeln? 

writeln('Do sou wish bo see the attack?')? 
writeln? writeln? sesnosel? writeln? 
case selection of 
' V ' ? 's ' : beslin 

if enebase <!> ml 
then beSin 

nucent enebase'^ • num ? 
recente r ? 
end ? 

repeat 

showattack ? 
whatnext ? 

until selection in C'C'r'c'l? 
end ? 

end? -C case > 
end ? 
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reietjse (»-nLrtwo>J 
PROCEDURE SHIPSTATUS? 



sc l‘i 
wri 
w i 
w r 1 
wri 
w r i 
si II 
whi 



ncntroCcl r > ? 



le (' UNIT'f 
teln(' MISSILE 
Le < ' NUMBER 

Leln( " LR-SAii 

te In ? 

j^neKl iif>b<<se ? 

le shxHne?<L <> nil 
i til shxpne;<t"' Uo 
Ueidin 

ccjse clciss of 



scrncn t ro ( off ) t 
' 17 f'X' f' ' : 

BOMB' ) f 
SHIP 
SR-3AM 



w r 1 Lein ? 
r ' Y ' f ' ' : 



POSIT 

HITS 



POSIT 
HITS ' ) f 



16? 'number number') 
PIM SOA')? 



do 



kind 
kind 
kind 
-C 



; - ' carrier 
:= ' cruiser 
:= 'destroyer 
case > 



wri 
oi id f 



cv 

crs r 
dt?s L 
end f 

write (nuin^6?' ' ? k ind ? ;<Pos J 3 J 2 ? spos ^ 8 J 2 ? p im J 6 ? soa J 6 ) ? 

wricein<l rsam I 7 ?srsaro J 9 ? mhi ts J 7 ?bh i ts : 8 ) ? 
siiipne;<t ♦ -= link? 
end? -C wiLi"! / while > 

Lein? write In? continue? 



ROCEDURE INTSTATUS? 



UnR 
deii ? 



dis 



iniese r ? 



oeii in 

sc ri icn t 
write 
wri tell I 
w r 1 te 
wri t e 1 n 
wri te I n 
1 ♦ - 0 ? 
ai rne;< t 
wnile a 
wi th 
bed 
c 



ro < 
( ' 

( ' 

( ' 

( ' 



cl 



1 ri 1 
ai r 
in 
ase 
in 



sc rnci it ro ( of f ) ? writeln? 

UNIT X Y relative to')? 

24 ? ' iiiinu tes number')? 

NUMBER POSIT POSIT CARRIER 
ENDURANCE MISSILES ' ) ? 



a I - Of 
a 1 rbase ? 
ext <> nil do 
ex t^ do 



HEADING 



UELOCITY' ) ? 



acfrnd of 
tcpt * bed in 

if ait > 0 
ti ien bed in 

1 : - i 

ded : = 
d i s : - 
write 
w r 1 te 



fl? aJ=a+l? 

ded rees ( cvx ? cvs ? xpos ? spos ) ? 

distance < cvx ? cvu ? xpos ?spos ) 

( num ♦ 7 ? xpos i 10 ♦ 2 ? spos *8^2) ? 

( ded J6?'/'?disJ4? 'NM')? 



M 10 ? 
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- 




I 




w Pi Ueln ( asmth :7fvelctyJ10F intndr : 12 f aam : 10 ) ? 
end 

else i J = i + 1 ? 

end ? 

end? *C case > 

airMie;;t link ? 
end? < With / wn lie > 

wi'iteln? Mi'iLeln? 

w I i Ueltj < ' Ci-i rren Lie sou have^ 'f(i-J)I2?' fiiiiiters on board the carrier*')? 
.apiLein? wr'itein? cuit;. 



riSGCEDUnc ncWSTj^FUS? 

vhn 

(Jed 7 • iiiLeeer? 



NUMBER 

HEnDING 



ueain 

s c p 1 1 c 1 1 L r u ( cl r* ) ? 
write < 
w r i Lein ( 
write ( 
w Pi teln ( 
w r i teln ? 

iI- 0 ? aJ- 0 ? 

airne;<t airbase? 

while airnext O ml 
With e 1 rnex t'^ du 
bed ill 

case acTPud of 



sc men t ro ( u*ff ) ? write In? 
UNIT X Y relative 

24 f ' III ii iu tes ' ) ? 



to' ) ? 



POSIT POSIT CARRIER')? 
VELOCITY ENDURANCE ' ) ? 



du 



aew 



oedin 
if alt 
then 



;> 0 

bed in 
i i - i 

ded : = 
d i s J - 
w r i te 
write 



t-nu f 
ai me 

ei id ? 
w r i te in ? 
w r X te V 
w r X teln ( 
w r X teln ? 
end ? 



eise 

end ? 

< Case > 
t J ~ 1 ink ? 

"C wi til / whi le 
w r X teln ? 

Currentls sou iiave> 'r 
board tiie carrier*')? 
writeln? contiiMje? 



rl? aJ=J+l? 

ded rees ( cvx r eve f kpos f spos ) ? 
distance ( cv?< f eve ? ;<pos f spos ) M 
( num; 7 f ;<POS *10:2? spos : 3 1 2 > ? 
(ded:6f '/' rdislAr 'NM' ) ? 
w r i teln ( acmth t7r velc te J 10 f intnd r J 12 ) ? 
end 

i I - i 4* 1 ? 



10 ? 



> 

(i-a) :2» 



earid warnind aircraft on') 
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ROCEBURE RDRSTnTUS; 



VnR 



in tester » 



oeiJi.n 

f'f icn 1 1 



o ( c 1 r ) 



sc rncnt ro ( off ) 5 



write C ' CONTACT 

writeln<'' UNIT in 

write <' NUMBER 

uri telm' ' CONTACT 

wi*i te In f 
1 0 ? 

cntiie;<t i— cntU^sSey 
wTiile cntne;<t <> nil ' 
with cntnext'^ do 
Ueiii in 

deii desif*ees 

di'j distance 

cose who of 



X 

DEAD 

POSIT 

ALIUE 



do 



Y 

/' 

POSIT 

) ; 



wr I teln f 
relative 

CARRIER 



to 



CONTACTING ' ) ? 



RADAR 



) f 



< cvj< f CVS ? xpos f ypos ) f 

(CVJOCVS f XPOS »SPOS ) 



lOf 



as rch 


: kind 


' air search 


' ? 


ss i‘ch 


1 kind 5- 


'ship search 


' ? 


f con 


l kind t- 


'fire con t rol 


' ? 


ai 


X kind J- 


' in te rcep to r 


' ? 


end ? 


■C case 


> 




if dead 
then 


cJ'ioice 


'killed' 




else 


cfioice 


'alive '? 





I f spos ♦ 3 J 2 > de ^ IZf 
' r choice ) f 



1 1 + X? 

write ( nuiii J 7 > Kpos 1 11 t 
wr 1 tell I < k ind f rfjnm 17 f ' 
if i mud IG - 0 
tiien beilin 

writelriF writeln? continuef 

scrncntro<cl r ) ? sc rncnt ro ( of f ) f 



/' fdis; 4 , 'NM 



write (' CONTACT 

writeln( ' CONTACTING 
write (' NUMBER 

wri teln < ' RADAR 

w r 1 teln f 
end f 

L,iitiie;<t J— link? 
end? -C with / while y 

w PI teln? writeln? continue? 

end ? 



X Y 

UNIT in 
POSIT POSIT 
CONTACT 



writeln? 
relative 
DEAD /' )f 
CARRIER 
ALIVE' ) ? 



) ? 



to' ) ? 
) i 



ROCEBURE SELECTOR? 



' D ' ? ' d ' , ^ R ' ? 



'Q' 



'o'D do 



oesii I 

while not (selection in C 
beii in 

sc r rici 1 1 ro ( be 1 > ? writeln? 

writeln(' You must select one of the available options, 

write <' Please trs asain I ')? 



' ) ? 
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I 



\ 






wri teliif 



reaij (selectxun)? 
tiiuJ? -C wnxle > 

case selection of 

' 1 ' : itioveac ( in tcp t f ' move ' ) f 

'2' ♦ inoveac ( in tcp t f ' 1 aunch ' ) » 

'3' : inoveac ( in tcp t f ' recove r ') y 

'4' t inoveaC ( aew y ' move " ) ? 

'3' ♦ inoveac ( aew launch '') 5 

' 6 " ♦ inoveac ( aew ?" recove r '> f 

'7' t movesliip ('single')? 

' 3 ' 4 movesliiP ("fleet')? 

' D ' f " iJ " ♦ (Ji s^* laSame » 

'R'r'r' ♦ be^ifi showstatus? selection 

en«Jf -C case > 

el id ? 



PROCEDURE MAKEOUTFILE? 



end ? 



besit I 

rewr i te ( shpoutf i le ? ' ♦ 2 * shpou tf i 1 e « da ta ' ) ? 

rewri te (ai routf iler "ABA#2*ai routf i le ♦ data " ) ? 
siiipnext shiPuase? 
wfiiie siiipnext <> nil do 
ueslin 

si iHOu tf 1 le'^ si'iipnext'^ ? 

pu t ( sfipoutf i 1 e ) ? 
siiipnext J= shipnext'^ ♦ 1 ink ? 
end ? 

airnext t- eirbdi^bfr 
wiiile airriext <> nil do 
ueiiin 

ai routf ile'^ airnext'^? 

put ( ai routf i 1 e ) ? 
airnejct i == ai rnex t'' ♦ 1 ink ? 
end f 

atknext t- atkbase? 
uhile atknext O nil do 
uei^in 

a 1 r*uu tf 1 1 e'^ ♦ = atknext''? 
put ( ai routf ile ) ? 
atki'iext t ■= atknex t'^ . 1 ink ? 
end f 

close C s^ipou tf i le > 1 ock ) ? 
close ( ai routf i le ? luck ) ? 
end? < HhKEOUTFILE 



> 



beiJin t i^BAGAME > 

initiaii-;e? doairlists? s'nowforms? texton? 

ac men troCcl r ) ? sc rnen t ro < of f ) ? write in? writeln? 

writeln<' Do sou wish to have the computer step through 
writeln( siiowinsj unis the displass? at a fixed 
writelii? writeln? sesnosel ? writeln? 
case selection of 
" Y ' F ' s ' t beiiin 



the Same? 
time step'^ ' ) ? 
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' N ' 1 



wri teln? 
All times 



w ri teln ? 
writelnC ' 

w r i t e 1 n ? 
write ( ' 
len 2 r 

w ri teln f 
write ( ' 
len 3f 

stepthru 
en»J 9 
beSin 

tms tep ;= Of 

end time J - tmdefaultf 

stepthr»j false? 



are to be entered as HINUTES ♦ ' ) ? 



Enter the leneth of each step I ')? 

tinstep := readint ( len ) ? 
writeln? writeln? 

Enter the total pla^ins time : 
endtime readint ( 1 en ) ? 

: true? 





end ? 












ei id ? *C 


case 


> 










repeat 














cntbase t 


- nil? 












mark (put 


roi le ) ? 




< 


MARK dnci RELEASE are APPLE'S 


way to 


a i radci rci i 


tc ? 




< 


build dynamic variables 


and 


then 


ship rada i* 


cn tc ? 




< 


release the memory when 


they 


are no 


di sp 1 adaiiie ? 
if not steptliru 




< 


lonsier needed. 







tiien bedxn 

siiowsta tijs f 
repea t 

ne;<teven ts ? 
selecto r f 

until selection in C'Q'f'a'Jf 
ne;< ts tep ? 
end f 

time time t tins tep? 

^e tk 1 1 1 s ? 

f'elease (pntrurie)? 
f 1 tupda te ? 
a tkupda te ? 

until ( (time > end time) or stop )? 
makeou tf i le ? 

end. < ABAGAME 



> 
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